$2.9! 




'US 



MICRO JOURNk 



* Motorola 68020 * 

6809-68008-68000-680 10 

COMDEX Spring '86 and OS9 p.24 

C User Notes p. 12 

Basically OS-9 p. 10 

OS -9 User Notes p.25 

XDMS p. 18 

FLEX User Notes p. 7 

QPL p.28 

Bit Bucket p.36 



VOLUME Vlli ISSUE VII • Devoted to the 68XX user • July 1986 

"Small computers Doing Big Things" 



<uf 68XXJJSER 



>2j 



-•-. 



\ 



T : S% 






A & 



?- 



0? 



"7A<;7CT12B10' 



68000 CPU FOR $395 



QUANT1TV ONE 



GESMPU-4A 
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FEATURES 

• 8 MHZ. 16/32-bit 68000 CPU 

• Sockets for up to 128K EPROM 
Sockets for up to 64K CMOS RAM 

1 RS-232 Serial Port 

3 16-bit timers 

G-64 bus Compatible 




SOFTWARE 

• Debugger 

• Forth Kerne i 

• CP/M 68 K 

• OS-9 



• PDOS 

• C-Basic-Pascal 

• Editor-Assembler 



Call for your free data sheet and 

our 100 page catalog of board level products. 

1-800-443-7722 
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USA - CANADA 

100 West Hoover Ave.- 11 
Mesa. AZ 85202 
Tel. (602) 962-5559 
Telex 386 575 



INTERNATIONAL 

3.chemin des Aulx 
CH-1228 Geneva 
Tel. (022) 713 400 
Telex 429 989 



ALL SYSTEMS INCLUDE: 

* Trie CLASSY CHASSIS with a lerro-resonani, constant voltage power 
supply that provides * 8 volts at 30 Amps. + 16 volts at S Amps, and 
- 16 volls at S Amps 

* Gold plated bus connectors. 

* Double density DMA floppy disk controllers 

* Complete hardware and soltware documentation 

* Necessary cables, tiller plates 

YOU CAN EXPAND YOUR SYSTEM WITH: 

MASS STORAGE 

Dual 8" OSDD Floppies. Cabinet & Power Supply JiS98 M 

60M8 Streamer (UniFLEX-020 only) $2400.00 

1 6M8 Dual Speed Floppy (under development) 

MEMORY 

#67 Static RAM -64K NMOS (6809 Only) $349.67 

#64 Static RAM -64K C MOS w / battery (6809 Only) $398.64 

#72 256K CMOS Static RAM w/baltery $998.72 

#31 16 Socket PROM /ROM/ RAM Board (6809 only) $268.31 

INTELLIGENT I/O PROCESSOR BOARDS 

slgnilicanlly reduce systems overhead by handling routine I/O tunc 

lions: treeing the host CPU lor running user programs The improves 

overall system pertormance and allows user terminals to be run at up 

to 19.2K baud For use with GMX Ml and 020 systems. 

#1 1 3 Port SerUI-30 Pin (0S9) $498.11 

#14 3 Port Serial-30 Pin (UniFLEX) $498.14 

#12 Parallel-SO Pin (UniFLEX-020) $538.12 

#13 4 Poit Sarial-50 dn (0S9 & UniFLEX020) $618.13 

I/O BOARDS (6809 SYSTEMS ONLY) 

#41 Serial, i Port $88.41 

#43 Serial. 2 Port $128.43 

#46 Serial. 8 Port (0S9/ FLEX only) $318.46 

#42 Parallel. 2 Pod $88.42 

#44 Parallel. 2 Port (Centronics pinoul) $1 28.44 

#45 Paiallel. 8 Port (0S9/ FLEX only) $198.45 

CABLES FOR I/O BOARDS- SPECIFY BOARD 

#95 Cable sets (1 needed per pat) $24.95 

#S1 Cent 8 P Cable lor #12 & #44 $34.51 

#53 Cent. Cable Set $36.53 

OTHER BOARDS 

#66 Prototyping 8oard-50 Pin . . $56.66 

#33 Prototyping Board-30 Pin $38.33 

Windrush EPROM Programmer S30 (0S9/FLEX 6809 only) $545.00 

CONTACT GlMIX FOR FURTHER DETAILS ON THESE AND 
OTHER BOARDS AND OPTIONS. 

EXPORT MODELS ADO $30 FOR 50Kz POWER SUPPLIES 

ALL PRICES ARE F 8 CHICAGO. 

GlMIX DOES NOT GUARANTEE PERFORMANCE OF ANY GlMIX 

SYSTEMS. BOARDS OR SOFTWARE WHEN USED WITH OTHER 

MANUFACTURERS PRODUCT. 

GlMIX, inc reserves the right to change pricing, terms, and products 

specifications at any lime without lurther notice 



GlMIX 2MHZ 6809 SYSTEMS 



Operating 

Systems 

included 



CPU included 



Serial Pone 
included 



High Speed 
Static RAM 



PRICES OF 
SYSTEMS WITH: 

Dual 80 Track 
OSOO Orives 



2SM8 Hard Disk 
and one 80 track 
Floppy Disk 



72 MB Hard Disk 
and one 80 track 



a 72M8 1- a 6M8 
removable pack 
hard disk and one 
80 tiack tloppy 



a 72M8 + a 12MB 
removable pack 
hard disk and one 
80 track (loppy 



GMX 6809 0S9/ 
FLEX SYSTEMS 
SOFTWARE 

0S9 * Editor. 
Assembler. Debugger 



FL£X 



GMX8UG Monitor 



#49 

0S9 GMX I/ 

and FLEX 



#05 



64KB 



$2998 49 



$5598.49 



$7598 49 



$9098 49 



N/A 



GMX I 

included 



Included 



#39 

0S9GMX It/ 

and FLEX 



#05 



256KB 



S3398.39 



$5998 39 



$7998 39 



$9498 30 



N/A 



GMX II 

included 



included 



included 



included 



Basic 09. RunB (0S9) 



RMS (0S9) 



DQ(0S9) 



VDisk lor FLEX 



RAM Disk lor 0S9 



OFLEX 



Support ROM 



Hardware CRC 



included 



included 



Included 



N/A 



N/A 



N/A 



N/A 



N/A 



included 



included 



included 



included 



$125 option 



$250 option 



N/A 



N/A 



#79 

0S9GMX III/ 

and FLEX 



GMX III 



3 Intelligent 



256KB 



$4898.79 



$7798.79 



$9798 79 



#39 
UniFLEX 



#05 



256KB 



N/A 



$5998 39 



$7998 39 



N/A 



$11.29879 



GMX 111 
included 



Included 



included 



included 



Included 



Included 



Included 



Included 



Included 



Included 



included 



$9498.39 



N/A 



#89 
UniFLEX III 



GMX III 



3 intelligent 



256KB 



N/A 



$8098 89 



$10,098.89 



N/A 



$11.59889 



GMX 68020 
SYSTEMS 



#020 
UniFLEX VM 



GMX 0?0 - MMU 



3 Intelligent 



i Megabyte 



N/A 



$13 680 20 



$15.68020 



N/A 



$17.180 20 



TO ORDER BY MUL SEHD CHECK OR MONEY ORDER OR USE YOUR VISA OR MASTER 
CHARGE PKi« allow 3 week; In personal checks lo clear u S orders MO IS handl- 
ing it order s under $200 DO Foreign orders add 110 handling it order u under 
$200 00 Foreign orders over $200 DO win M shipped via Emery Air Freight COLLECT. 
and we will charge no Handling All orders must m prepaid >n U S hinds Pleas* nine 
thai foreign checks have oeen taking aooul ft weeks lor collection so w» would aoYtse 
wiring money, or checks drawn on a bank account in the U S Our bank is the Continen- 
tal Illinois National' Bank of Chicago. 231 S USane Street Chicago 'L 60633. account 
nutnoer 73-32033 

BASIC -09 ana OS 9 are trademarks <* Mtcrowire Systems Corp and MOTOROLA. Inc 
FLEX and UniFLEX are trademarks ot Technical Systems Consiitantj. Inc GlMIX. 
GHOST GMX CLASSY CHASSIS are trademarks ot GlMIX Inc 



inc. 



Available: Wide variety ol languages and other soltware 
lor use with either 0S-9 or FLEX 

All GlMIX versions ot 0S9 can read and write RS color 
computer lormai 0S9 disks, as well as the 
Microware/GiMIX standard format. 

Ail 0S9/FLEX systemsallow you to soltware select either 
operaling system 



Eimix 



1337 WEST 37th PLACE 

CHICAGO, ILLINOIS 60609 

(312) 927-5510 . TWX 910-221-4055 
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Porlions of the text lor '69' Micro Journal were 
prepared using the following furnished Hard So I- 
ware 

COMPUTERS - HARDWARE 

Southwest Technical Products 

219 W Rhapsody 

San Antonio, TX 78216 

S. 9- 5 8 DMFOisk-CDS1-8212W-Sprml3 Printer 

GIMIX Inc. 

1337 West 371h Place 

Chicago. II 60609 

SuperMamlrame - 0S9 • FLEX ■ Assorted Hardware 

EDITORS - WORD PROCESSORS 

Technical Systems Consultants, Inc 

111 Providence Road 

Chapel Hill. NC 27511 

FLEX - Editor - Text Processor 

Stylo Software Inc 

PO Box 916 

Idaho Falls. 10 83402 

Stylograph ■ Mail Merge - Spell 

Editorial Staff 

Don Williams Sr Publisher 

lerry E Williams Executive Edflor 

Tom E Williams Production Editor 

Robert L Nay Technical Edflor 

Admlnlalretlve Staff 
Mary Robertson . Officer Manager 

Joyce Williams Subscriptions 

Chnslme Lea Accounting 

Contributing Editors 

Ron Anderson Norm Commo 

Peter Dibble William E Fisher 

Di. Theo Elbert Carl Mann 

Dr. E M Pass Ron Voigts 

Philip Lucido Randy Lewis 

Special Technical Projecta 
Clay Abrams K6AEP 
Tom Hunt 

Contents 
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Send All Correspondence To: 

Computer Publishing Center 

68' Micro Journal 

5900 Ceaaendra Smith Hd. 

Hlxaon, TN 37343 

Phone (615) 842-4600 or Telex 5 1 06006630 

Copyrighted 1985 by Computer Publishing Inc. 

68' Micro Journal Is published 12 times a year by Computer 
Publishing Inc. Second Class Postage Paid ISSN 0194-5025 at 
Hixson, TN and additional entries. Postmaster: send form 3597 to 
68' Micro Journal, POB 849 Hixson. TN 37343. 

Subscription Rates 

1 Year $24.50 U.S.A.. Canada & Mexico Add $9.50 a Year. Other 
Foreign Add $12 a Yeer for Surface, Airmail Add $48 a Year. 
Must be in U.S. currency!! 

Itema or Articles For Publication 

Articles submitted for publication should include authors name, 
address, telephone number and date. Articles should be on 
either 5 or 8 Inch dlak in STYLOGRAPH or TSC Editor format 
with 3.5 Inch column width. All disks will be returned. Articles 
submitted on paper should be 4.5 Inchea In width (Including 
Source Listings) for proper reductions. Pleasa Use A Dark Rib- 
bon It No Blue Ink!!! Single space on 8x1 1 bond or better grade 
paper. No hand written articles accepted. Disks should be in 
FLEX2 6800 or FLEX9 6609 any version or OS-9 any version. 

The following TSC Text Processor commands ONLY should 
be used: .ap space, .pp paragraph. .11 fill and .nf no fill. Also 
please do not format within the text with multiple spaces. We 
will enter the rest at lime of editing. 

All STYLOGRAPH commands are acceptable except ,pg page 
command. We print edited text files in continous text form. 

Letters To The Editor 

All letters to the editor should comply with the above require- 
ments and muat be signed. Letters of "gripes" as well as 
"praise" are solicited. We reserve the right to reject any submis- 
sion for lack of "good taste" and we reserve the right to define 
"good taste". 

Advertising Rates 

Commercial advertisers please contact 68' Micro Journal adver- 
tising department for current rate sheet and requirements. 

Classified Advertising 

All classified ads must be non-commercial. Minimum of $9.50 for 
tlrat 20 words and .45 per word after 20. All classifieds must be 
peld In advance. No classified ads accepted over the phone. 
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The VME BUS and OS-9: 



Ultimate Software 
for the Ultimate Bus 



Modularity. Flexibility. High Performance. Future growth. These are probably the prime reasons 
you chose the VME bus. Why not use the same criteria when selecting your system software? That's 
why you should take a look at Microware's OS-9/68000 Operating System— it's the perlect match for the 
VME bus. 

When you're working with VME you must have access to every part of the system. Unlike other 
operating systems that literally scream KEEP OUT!, OS-9's open architecture invites you to Create, adapt, 
customize and expand. Thanks to its unique modular design, OS-9 naturally fits virtually any system, 
from simple ROM-based controllers up to large multiuser systems. 

And that's just the beginning of the story. OS-9 gives you a complete UNIX-application compatible 
environment. It is multitasking, real time, and extremely fast. And if you're still not impressed, 
consider that a complete OS-9 executive and I/O driver package typically fits in less than 24K of 
RAM or ROM. 

Software tools abound for OS-9, including outstanding Microware C. Basic, Fortran, and 
Pascal compilers. In addition, cross C compilers and cross assemblers are available 
for VAX systems under Unix or VMS. You can also plug in other advanced options, 
such as the GSS-DRIVERS™ Virtual Device Interface for industry- 
standard graphics support, or the OS-9 Network File Manager for 
high level, hardware-independent networking. 



Designed for the most demanding OEM requirements, 
OS-9's performance and reliability has been proven in an 
incredible variety of applications. There's nothing like a track 
record as proof: to date, over 200 OEMs have shipped more 
than 100,000 OS-9-based systems. 

Ask your VME system supplier about OS-9. Or you can 
install and evaluate OS-9 on your own custom system with 
a reasonably priced Microware PorlPak™. Contact Micro- 
ware today. We'll send you complete information about OS-9 
and a list of quality manufacturers who offer off-the-shelf 
VME/OS-9 packages. 



MICROWARE . 

Mlcrowara Systems Corporation 

1666 NW 114th Slreel • Oes Moines. Iowa 50322 

Phone S1S-224-1929 ■ Telex 910-S20-253S 

Mlcrowara Japan, Ltd. 

41-19 Honcho 4-Chome. Funabashi City • Chiba 273, 

Japan • Phone 0473 (28) 4493 • Telex 781-299-3122 
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Micro™ att«r Scandinavian AS 

S I Paragotan 7 

So> 1309 

S751 *3 Uppulfl 

Phon* OIB i:w.s!> 
«ei 7S1M 



Dr. fludOII tieil. GmhH 
Porpriyitrasse 15 
D-6905 Scrirwsneim 
Wtftt Germany 
Pnona W tl 03) 67 41 
latei 46S02S 



El.oli AG 
Zetwsg 12 

[HMB Baden Ost1*.l 
Switraland 

Hun* (056) 83-3377 
Trjt«l WB27S 



Modular Hardware Deserves Modular Software 



Vivrway Ltd. 

36-3$ John Str»et 

I won. Bedtordihne LU1 2JE 

■JniKrd Kingdom 
Phone 10582) 4J34JS 
T«to» BJSils 



Mieiopt oecsior Consultant! 


yicrodeti Sort 


92 Bynya Road 


97 pis. rue oa Cofcynoes 


Palm e>Kh ?10S 


92*00 Courtwvoie 


NSW Aulinlil 


Franc* 


Plww OJ 919 -1917 


Phone 1788-80-80 




Tele* 61M05 



OS-9 is a trademark ol Microware and Motorola. Portpak is a trademark ot Microware. OSS-Drivers is a trademark ol Graphic 
Software Systems, Inc. VAX and VMS are liademaiks ot DEC. Unix is a trademark ol AT&T. 
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Mustang-020- 

A DAT A COM' 1 

Hi-Speod 

Product 



DATA-COMP proudly presents the first 
Under $5000 "SUPKR MICRO". 



The MUSTANG-020' 



MUSTANG-02& 



The MUSTANG-020 68020 SBC 
provides a powerful, compact. 32 bit computer 
system featuring the "state of the art" Motorola 
68020 "super" micro-processor. It comes 
standard with 2 megabyte of high-speed SIP 
dynamic RAM, serial and parallel ports, floppy 
disk controller, a SASI hard disk interface tor 
intelligent hard disk controllers and a battery 
backed-up time-of-day clock. Provisions are 
made for the super powerful Motorola MC6888 1 
floating point math co-processor, for heavy math 
and number crunching applications. An optional 
network interface uses one serial (four (4) 
standard, expandable to 20) as a 125/bit per 
second network channel. Supports as many as 32 
nodes. 

The MUSTANG-020 is ideally suited to a 
wide variety of applications. It provides a cost 
effective alternative to the other MC68020 
systems now available. It is an excellent 
introductory tool to the world of hi-power, hi- 
speed new generation "super micros". In 
practical applications it has numerous 
applications, ranging from scientific to education. 
It is already being used by government agencies, 
labs, universities, business and practically every 
other critical applications center, worldwide, 
where true multi-user, multi-tasking needs exist. 
The MUSTANG-020 is UNIX C level V 
compatible. Where low cost and power is a must, 
the MUSTANG-020 is the answer, as many have 
discovered. Proving that price is not the standard 
for quality! 

As a software development station, a 
general purpose scientific or small to medium 
business computer, or a super efficient real-time 
controller in process control, the MUSTANG- 
020 is the cost effective choice. With the optional 
MC6888 1 floating point math coprocessor 

installed, it has the capability of systems costing 
many times over it's total acquisition cost. 



DATA-COMP 



' m IMi #' m * IM, tm. 



With the DATA-COMP "total package", 
consisting of a heavy duty metal cabinet, 
switching power supply with rf/line by-passing, 
5 inch DS/DD 80 track floppy. Xebec hard disk 
controller, 25 megabyte Winchester hard disk, 
four serial RS-232 ports and a UNIX C level V 
compatible multi-tasking, multi-user operating 
system, the price is under $5000, w/12.5 
megahertz system clock (limited time offer). 
Most all popular high level languages are 
available at very reasonable cost. The system is 
expandable to 20 serial ports, at a cost of less 
than $65 per port, in multiples of 8 port 
expansion options. 

The system SBC fully populated, quality 
tested, with 4 serial ports pre- wired and board 
mounted is available for less that $3000. Quantity 
discounts are available for OEM and special 
applications, in quantity. All that is required to 
bring to complete "system" standards is a 
cabinet, power supply, disks and operating 
system. AM these are available as separate items 
from DATA-COMP. 




Kim. 1. mti 
Titepfcm 111 UI-tMO 

t.i.1 no somsm 



A special version of the Motorola 020- 
BUG is installed on each board. 020-BUG is a 
ROM based bebugger package with facilities for 
downloading and executing user programs from 
a host system. It includes commands for display 
and modification of memory, breakpoint 
capabilities, a powerful assembler/disassemble 
and numerous system diagnostics. Various 020- 
BUG system routines, such as I/O handlers are 
available for user programs. 

Normal system speed is 3-4.5 MIPS, with 
burst up to 10 MIPS, at 16.6 megahertz. 
Intelligent I/O available for some operating 
systems. 

Hands-on "actual experience sessions", 
before you buy, are available from DATA- 
COMP. Call or write for additional information 
or pricing. 
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HUVTASIG 020 tnrhurki 
Tl** Secuadm 



Type Spain 



IBM AT 7500 bull S>< 1 

mi 7300 Mi» rc 6»oio 

DCC IU 11/710 UKlX «erkler * 

oec vu n/710 

6S0OI OSS tit 8 M>* 

MOM - - 10 Nbi 

KUSTUC-OJO MOJO NCMBtl 0S9 16 Mb. 

KD5TAJIC-0J0 6)020 MC6t»l IWIFl.tr, 



32 bit 


IcXIetrr 


Inc. Loop 


toofi Loop 


9.7 


No Rcilltcr 


7.2 


4.3 


3.6 


1.2 


5.1 


1.2 


IB.O 


9.0 


6. J 


4.0 


lb* 2.1 


O.M 


" l.» 


1.22 



I -pop: 



Hauo 
I 

reejettr loos I; 
lor (1-0; 1 < 999999; 
I 



wi); 



eilluud HIM - HUSTAVS-020 
Motorola Spacei Sunt up to 7 



- 2.5 HIP* 
B MIPS - 16 Kbl 



* 

UUST*NO-03t7~ Sollware 


0M 




OM 


JJJO.OO 


•■HD* 


300 00 


C Compiler 


400.00 


formal 77 


400.00 


Macrowwx Peacal 


400 00 


Oueeaeoft ra»ul 


900. CD 


Stele-One* 


495.00 


Stylo-Sprfl 


19500 


Stylo M<rje 


173.00 


Stylo-One* .SpeO Mojr 


695.00 


PAT »(C touroc 


22».0D 


1UST »/C«OUKT 


79.95 


PATjJUST Combo 


249 JO 


So4p*.,(i«c Mow) 


941.00 


COM 


125.00 


UelFLEX 




UaiRXX 


1450 00 


Screen Editor 


150.00 


Son- Mote 


200 00 


BAJtCfrtCompikr 


300.00 


CCottejiicr 


530.00 


COBOL 


750.00 


CM0OGM •ftourec 


100.00 


TMODCM Wkwcc 


100.00 


X-TALK (at* Ad) 


99.95 


Croat Aeacmbkf 


50.00 


bm 77 


450 01 


Stvlplnf. («C WU»») 


995.00 



Supd»t) MUSTAM3.020™ 12 5 Mha. 
Add for 164 Mat 6M20 400.00 

Add for ltV6 Mhz 61891 400.00 

t Pert expanaioB RS-232 49*00 

(total or 30 aerial porta euppnruo) 

Eipaman for Motorola I/O Oiaoacl 
Modem) S1930O 

Sculptor. Wc Be USA dattrttaasi for 
Sojptw*. Cal) or write lor toe or 
mabiptc eytae bcaiBC A eWraaira, 
OCMfOeakr. 

Spaokl fcrovnpteic •yaatnhvytn 
. J495O0, Saw 5300.00 



S.41ani !■■«-. 



Alt MUSTANO4T70™ ■ 
board buy en are eowka* to diK'ajM' 
00 40 baled toft vn 10- TTJ9* 
dfceskdiAt oa item Call or wriie rar 
quota. ObuoUoU apply ejuy lb* aalc 
a> well. 



IMiyST^MQ-ClgO- 

FEATURE* 

■ 12J Mhi (opbooa) 16.6 Mhz available) MC68020 full 32-bit avid* paihproteuar 

■ 32-kil wide data and addrcaa btue». oon-o-ailiipltjied 

■ on chip tastrtciitK) cache 

■ object codecoirapalibM) vxilh all 64XXX firmly proceuon 

■ enhanced initnaaioo art . math co-omxu or utter face 

■ 68531 oulbhi-irnrd noalincDoint •o-propcxior (optional) 
direct cilcnti ono f full 68020 mtcruction act 

full lupport IEEE r*7 54, draft 10 
trartwMioi*! and other acieolific math furjcoom 

■ 2Mf>^Ui-ofSIPHAMiM:«32brlorgMi 

■ upU>ZttKByu:iofEi , ROM<64»32biii) 

■ 4 Aiynchronout tcna] IA0 ports (tandard 
optional lo 20 aerial potn 
ilandard RS-232 inkrfew 
optional network interface 

■ buffered I bil parallel part (1/2 MC68230) 
Ccntronici tygw powuJ 

■ expantioo coroector for additional I/O dcvicei 
libit data path 
236 byte addreii apace 
2 interrupt input* 
dock and control tignalt 
Motorola UO Channel Modulei 

■ time of day clock/calendar w/battery backup 

■ controller for 2, 5 1/4"' floppy dtik drive! 
■ ingle or double aide, aiuloor double dcniily 
33 to 10 track aelocublo (4B-96TPI) 

■ SASI interface 

■ prvgramroeb le pnhodac tnterrupt gencralor 
oiKrrupt rate from tnicrD-tecondj to wcondt 
highly pecuniae dm bate (3 PPM] 

■ 3 hit irnte twitch, readable by the CPU 

■ hardware i mglcilep cap abilily 

■ tmirJi danclly to a aaaadard 5 1/4" diik drive 

Six B1S/16« 3 11% 

Tbeae eateMoYj 68020 lyaiemi are preaently working al 

NASA, Atomic uwrry Committion, other (^>vtmrwnt 
A|cncieiu»rtllu L'ntvciiiliei, Buaincil, Labi, and 
cniicilapplieaiiooicaruai, WmMwide, where apeed, math 
crunching and mulai-uier. raulti-taaking UNIX C level V coDeutab ility 
and to*/ coil it a mutf. 




For a limited time we wll offer a • 
$400 trade-in on your old 68XXX ! 
SBC. Must be working properly " 
and complete with all software, ; 
cables and documenlalon. Call ; 
for more Information. ■ 



MUSTANG-020 System component prices • Effective March 1936 
Prices subject to change • call for latest quotes. 







MUSTANQ-020SBC 


$275000 






Cabinet 


$29995 


•etaiKA It 1 




5" -80 tracK floppy DS/OD 


$26995 


■S if B^* 




Floppy cable 


$3995 


Lail atttataf ' 




OS 9 68K 


$35000 


c 




Winchester cable 


$39.95 


1 


flK 


Winchester Drive 25 Mbyte 


$895.00 


PPI 




Xebec HID controller 


$395.00 


•■■rnaKi^v 


W 


Shipping USA UPS 


$20 00 






Total: 


$5059.60 


Discount 


Less 


Complete Sys order 5% 


$25299 


ADO:-> 




Complete Sys Price 


$480681 


UniFLEX 


$100.00 






MC6B861 f/p matti orrxtriso/ 


$49500 


This price subject to increase Svmmei 


16 67 MhZ MC68020 


$400 00 






16 67 MhZ MC6888 1 


$400 00 







Note: Current OS 9 does not handle the MC68881 • Future revisions will 
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PAT FROM S. E. MEDIA - A FULL FEATURED SCREEN ORIENTED TEXT EDITOR 

with all the best of PIE. For those who swore by and loved PIE, this is for YOU! All PIE 
features & much more! Too many features to list. And if you don't like ours, change or add 
your own. C source included. Easily configured to your CRT terminal, with special configuration 
section. No sweat! 

68008 - 68000 - 68010 - 68020 OS-9 68K $229.00 





Special 




JUST 

JUST from S. E. MEDIA - - Text formatter written by Ron Anderson; for dot matrix 
printers, provides many unique features. Output formatted to the display. User con- 
figurable for adapting to other printers. Comes set-up for Epson MX80 with Graflex. Up 
to 10 imbedded printer control commands. Compensates for double width printing. 
Includes normal line width, page numbering, margin, indent, paragraph, space, vertical 
skip lines, page length, centering, fill, justification, etc. Use with PAT or any other text 
editor. The ONLY stand alone text processor for the 68XXX OS-9 68K, that we have 
seen. And at a very LOW PRICE! Order from: S.E. MEDIA - see catalog this issue. 

68008 - 68000 - 68010 - 68020 OS-9 68K 
V With 'C source $79.95 
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User Notes ? 



By: Ronald W. Anderson 

3540 Sturb ridge Court 
Ann Arbor. Mi. 48105 



1 might well be changing the title of this in the near future. 
It all started with that recent purchase of the Mustang-020 
computer. While I want to make it clear that I have no plans 
to abandon my familiar old FLEX system and all the nice 
things that it can do, and that 1 can do with it, 1 am VERY 
much impressed with the Mustang, the GMX board that is 
the heart of it, the Microware OS-9 operating system, and the 
Microware C compiler. 

This is a first for me. 1 am editing this column using Stylo 
(Don Williams has sent it to me for review) on the Mustang 
system. 1 am highly prejudiced toward my own editor effort 
PAT, of course, but 1 have to say that Stylo is my second 
choice. There have been several improvements in Stylo over 
the course of its existence, but more about that in a review 
coming soon. 

(Editor's Note: Gotcha Ron, this is our first issue using 
Stylo to drive a laserwriter. Sure makes your column look 
prettier. Roger, Carl and Stanley at Great Plains are getting 
things together, and in a big way. We took your file, dumped 
it to a Mac by wire from a SSO system, made 4 or 5 command 
changes to your original Stylo file, sent it to the laserwriter 
and about 2 minutes later we had your entire article, just as 
you see it now! Some act, huh? 

Actually we have one of the largest and most modem 
typesetting plants in the Southeast, but, in the beginning (and 
1 do mean beginning, as we are now the third oldest computer 
magazine in the WHOLE WIDE WORLD!) we promised to 
do it with our computers. After all, that is what 68 MICRO 

JOURNAL has always been about WHAT CAN BE 

DONE WITH 'OUR' COMPUTERS! This thing is all 
68XXX, and we kept the faith. And I might add that the 
inputting and editing, because of Stylo, is a lot easier than our 
100 grand plus systems. Thanks Ron for letting me bust in, 
but I just could not resist the temptation. - DMW 
Now 

Back to the subject of the Mustang-020 and some discussion 
of its impressive performance. I've extended my compile 
time and object code tests for JUST, so 1 will give you all the 
information again. JUST is my text processor written 
originally in Pascal, rewritten and expanded in PL/9 and later 
translated to "C". First, for the 6809 system, I have a 2 mhz 
processor and 8 inch floppy drives. PL9 compiled JUST 
(including the loading of the compiler and the source file to 
memory) in 35 seconds. The object code is 4400 bytes. 
McCosh C on the same 6809 system compiled the C version of 
the same program in 5 minutes and 5 seconds, with an object 
code size of 8300 bytes. I became interested and set the 
system at work to run at 2 MHz with the Cal Comp hard disk 
system. It compiled the JUST.C program with McCosh C in 
1 minute 54 seconds. My efforts to use RAMdisk on that 
system to speed things up further, didn't. First of all, 1 
couldn't run the Hard Disk and the Ramdisk at the same time. 
Secondly 1 have only 2S6K of extended memory so 1 couldn't 
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put all the C compiler parts and the JUST.C source on the 
ramdisk and have room for the intermediate files that the C 
compiler generates. My best results were with the c 
compiler on the floppy but using the ramdisk for work space 
for the intermediate files. With the system running at I 
MHz the compile time was 3 minutes 32 seconds. The Tandy- 
1200, a true IBM 8086 based clone, took 4 minutes 23 seconds 
to compile JUST using Lattice C. The new information is 
that the Tandy 3000 using the 80286 compiled JUST with 
Lattice C in 1 minute IS seconds. I should mention that the 
same version of Lattice C was used on both Tandy machines. 
It is probable that an 80286 optimized version would run 
considerably faster. 1 should also mention that the lattice C 
version generated 16K of object code. Now for the Mustang. 
It compiled JUST in Micioware C in 19.5 seconds! Only I IK 
of code was generated. I'd say the 68020 looks to be far 
superior to the other folks advanced processor. 

Along with better capabilities and more computing power, 
with OS-9 you get true multi-user capabilities and the 
capability to do such things as print a 50 page listing while 
editing another file. 1 was going to mention the possibility 
of compiling a program while doing something else also, but 
the compile is so fast that you really have to HURRY to do 
anything else of significance while running a compile as a 
background task. For example, the C version of PAT for the 
68020 compiles in just 1 minute and 15 seconds. The source 
listing is now about 43 pages, and the object code about 23K. 
PATC for OS-9/68K is just about finished, and it has a IO0K 
edit buffer. All 43 pages of its source file can be edited in one 
large file of about 45K of text. The C compiler handles 
compiling it all in one chunk also. I've done a few little 
shoit utilities in C such as one to turn off the glaring status 
line on a Televidao terminal. It is about 16 lines of pulchar() 
statements to configure the terminal on startup. Such a 
program compiles in just a few seconds! 

Some time ago, I said in a column that 1 had tried OS-9 on a 
Color Computer, and that is was about like putting a 1000 
horsepower engine on a row boat. Here, though, is the perfect 
combination. The 68020 and OS-9 complement each other 
nicely. 1 have not begun to explore all the things 1 can do 
with the combination. There will be more here from time to 
time as 1 get more familiar with the system. It has been here 
for just over a month now, and 1 have used it considerably in 
that time. 

FLEX 

1 had to get on to some FLEX topics so as not to leave any 
of you feeling deserted. I received a letter from a reader in 
Sweden, Roland Stellrot, who tells me that his computer 
involvement is as a hobbyist. He had a number of questions 
regarding FLEX and some of the associated software. There 
was enough in his first letter to provide me with material for 
a number of columns, and 1 answered several questions that 
didn't require long involved answers in a return letter. 1 also 
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mentioned to Roland that my grandfather was bom in 
Goteburg, the city where he works. Roland has sent me 
information about Goteburg and indicated that he lives in a 
suburb. 

One of Roland's questions concerned the operation of the 
assembler. In particular he was puzzled over the assembler 
diiectives. He said that he could in general understand the 
instruction set of the 6809, but the assembler directives were 
hard to figuie out. My friend Albert McDaniel (another 
contributor to '68' Micro Journal) called a few weeks ago 
with a related question. Both were puuled over the FCB. 
FOB, and RMB directives in the assembler, but for slightly 

different reasons. First of all, I would like to clear up one 
point of great confusion. The authors of FLEX 
unfortunately chose to call one of the main parts of their disk 
interface scheme a File Control Block. The name is 
unfortunate because of the obvious Mnemonic FCB. Those 
initials in the context of a discussion of a FLEX file, always 
refer to the File Control Block, a block of memory 320 bytes 
long, that is used by the file management system. The FMS 
uses one file control block for each disk file that is open. 

The Assembler has a mnemonic called FCB, that means 
something entirely different. In this case the FCB stands for 
"Form Constant Byte". The assembler has a similar 
instruction FOB or "Form Double Byte". These assembler 
directives simply are used to place a specified code or bit 
pattern at the current program counter location in memory. 
That sounds like a mouthful, so let me give an example. 
Please remember that I am looking for a simple example and 
that there are other ways to accomplish the same results. 
Suppose you need a quick way to conveit one sort of code into 
another. For a dumb example, take a binary number from to 
9 and convett it into the ASCII code for that number. One 
way is simply to add $30 to the number, but there are other 
code schemes that don't have such a nice correspondence. 
Ignoring the fact that there is a simple way, we could use a 
table. Listing 1 shows a subroutine that is passed the binary 
value in the B accumulator and Tetums the ASCII character in 
the A accumulator. 

CONVRT LDX STABLE 
IDA B,X 
RTS 

TABLE FCB $30,$31.$32.$33.$34.$35,$36,$37.$38 1 $39 



What would you use double bytes for? They represent 16 bit 
values such as addresses. I won't go into the use of a JUMP 
table here, but you would use FDB in constiucting a table of 
addresses for, say, entry points into a program module, 
perhaps at the beginning of the module. You don't have to 
use literal hexadecimal values as 1 did above. If your 
program contains labels, the "value" of a label is its address. 
That is, FDB CONVRT. will generate a 16 bit value that is 
equal to the address in your program of the label CONVRT. 
If that is not clear, let me know and I'll try again. 

While we are looking at "constants", since that is really 
what the tables above are all about, there is another kind of 
constant called a string constant. Anyone familiar with 
BASIC should have an idea what a suing is. It is a "string" of 
characters. 

MESSAG FCC /This is a string/ 
FCB $04 

That will generate the ascii characters in sequence to spell 
out just what you see there. Most 6809 FLEX programs use 
the convention that the end of a string is signaled by using the 
Hex value 04. That is simply because there is a FLEX routine 
called PSTRNG (see a recent column) that will print that 
line of text and stop when it finds a $04. LDX #MESSAG 
followed by JSR PSTRNG will get you a CR (PSTRNG 
issues a CR before printing a string) followed by the 
message. I don't want to complicate things nor do I want to 
confuse you unduly, but this brings up another way to 
generate our TABLE of the first example above: 

TABLE FCC /0123456789/ 

Again, all the methods shown here are equivalent. The 
reason for using any one of them would be clarity for 
yourself or someone else reading the program. You could 
classify all the assembler directives we have discussed so far 
as useful for generating CONSTANTS in your program. 
BASIC has no equivalent of a CONSTANT unless it might be 
the assigning of a value to a variable and leaving it alone 
throughout the execution of a program. Pascal or C have 
things called Constants. In Pascal you use the keyword 
CONST and then list them. CR - CHR(13); etc. In C you 
define them as in #define CR OxOd. (OxOd in C is equivalent 
to SOD in the assembler). 



The scheme here ought to be clear. Point the X register at 
the TABLE and load the A accumulator with the B'th item in 
the table, if B is zero, A will be loaded with $30, the code for 
zero. If B is $09 A will be loaded with the value at 9,X or 
$39, the ASCI) code for printing the digit 9. The assembler is 
a little smart, and the above code doesn't take advantage of its 
capabilities. Table could just as well be defined as below: 

TABLE FCB , 1. , 2,'3.'4. , 5, , 6.'7.'8,'9 

The assembler accepts a character preceded by an apostrophe 
and recognizes it as meaning the ASCII value that represents 
that character. By now you are wondering about the FDB 
instruction. You could conceivably use it for TABLE, but its 
use would obscure what you are trying to do rather than 
clarify it. 

TABLE FDB $3031,$3233,$3435.$3637 ,$3839 

Though the result would be the same, the intent is lost. 



You probably are all familiar with how in BASIC you 
define an array with a DIM statement DIM A(I0) would be 
an example. Suppose you want a working space in an 
assembler program to store ten 16 bit values in an array. You 
don't know what values are to be stored there. The program 
will change them as it progresses, and you don't care what is 
there initially because you are going to store values in the 
airay or table in the process of running your program. 

TABLERMB 20 

That statement will Reserve Memory Bytes for you. The 
argument is 20 indicating to the assembler to save space for 
20 bytes or 10 16 bit values. The Label TABLE will have the 
value of the address of the table. LDX STABLE will point X 
at the first value in the table. If B contains the "index" of the 
array element you need to access (the first one is index 0). you 
simply ASLB to multiply it by 2 and LDD B.X. The 
multiply by 2 is because each entry is two bytes long. The 
item at index 4 is located at 8,X. You might wonder what 
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RMB does, if it generates no code whatever. If TABLE 
happens to be in the middle of your program somewhere, it 
simply advances the assembler's program counter by 20 so 
that these 20 bytes are not used for program code, which 
brings me to the next item for discussion. 

The other question that was asked me was more or less 
"How can you just put a table of data in the middle of the 
program?" In other words, "How does the program know not 
to try to execute the bytes in the table?" The answer is 
simple but not obvious. You can just stick a table anywhere 
in a program if you are careful that the last instruction before 
the table is a BRA or JMP to a label just past the table. It 
doesn't make much sense, however, just to stick a table in the 
middle of a section of code and jump around it. Rather, a 
table is usually put before any executable code, after all 
executable code, or it is tucked in between subroutines. A 
very good place to put a table is just before the subroutine 
that uses it. In other words, keep it close to the code with 
which it is associated. You will always see a JMP, BRA, or 
RTS instruction just before a table if it appears to be in the 
middle of a section of code. Fuither, the next line after the 
table will have a LABEL. If it did not, it could never be 
executed since there would be no way to JMP or JSR to it! 

This discussion is not quite complete without mention of 
the other assembler directive used to define numbers for the 
assembler. That is the EQU directive. Actually, the EQU 
more closely parallels the #define of C than the FCB or FDB 
do. Suppose I am writing a program that needs to return to 
FLEX after it is finished. The last statement would be a 
jump to FLEX WARMStart location which is $CD03. 
Though JMP $CD03 would work perfectly well, it is clearer 
to define WARMS at the start of the program as WARMS 
EQU $CD03, and at the end of the program use JMP 
WARMS. There is another reason besides that of clarity for 
using such a scheme. Back in the "olden days" of Minif lex and 
the 6800, WARMS was defined as $AD03 for Miniflex. A 
lot of users wrote their own little utility programs for 
Miniflex, and if they were smait and used names for the 
FLEX entry points, all they had to do was change a bunch of 
$A to $C once for each entiy point definition using the EQU 
directive, and their program would assemble and run under 
FLEX09! If the program had $ADxx addresses strung 
throughout, the edit for the change was much harder. This 
discussion is the same one that comes up with BASIC. If you 
give a program constant a name, it is easy to change the 
program parameters by a simple edit rather than a long 
complicated "hunt" for all the places where you used that 
valueor number. 

I hope this discussion has b«en of some value to you. I am 
going to send a "preview'' copy of this to Roland Stellrot in 
appreciation for his bringing up the question. 

Dvorak Keyboard 

The February issue of Byte had an article on the Dvorak 
keyboard. Dvorak was a professor of statistics at the 
University of Washington. He realized that the typewriter 
keyboard had been purposely made inconvenient because early 
typewriters had a tendency for the keys to jam. The keyboard 
was set up with the most commonly used letter pairs 
puiposely separated so the typist would have to slow down. 
Dvorak put the most commonly used letters in the "home 
row" with all the vowels at the left and the most used 
consonants at the right. 1 had heard about the Dvorak 
keyboard for years, and always had wondered about it. A 
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couple of days ago, reading the article in BYTE prompted me 
to wiite a C program to convert the keyboard. It sees the keys 
that you type, but it echoes what would be there on a Dvorak. 
The key layout is in the Byte article or you can look it up in 
the library, (or for that matter, hit keys and make yourself a 
map). 

I should point out that the code conversion table used in the 
DVORAK program would be a good example of something 
more useful to do with a table in assembler in the discussion 
above. 

I've given it a pretty good go, having memorized the 
positions of all the letters. The top row of numbers and 
punctuation is exactly the same, so there is little to learn 
there. At any rate, I am able to type on the Dvorak 
arrangement by "touch" so I didn't have to rearrange the key 
caps on my terminal. I can breeze along at about 7 or 8 words 
per minute presently. I think a little practice every day will 
get me familiar with it so I will be able to switch between 
qwerty and Dvorak just as one can drive two different cars 
without a great deal of thought after some mental shifting of 
environments. After doing the C program, I did a new 
version of PAT with the conversion built in to the get 
character routine. I spend half an hour typing a couple of 
paragraphs that would take me a few minutes with the 
qweity airangement. 

The C program is included here so you can type it in and try 
it. It should run in just about any C including the TINY 
varieties. I would be interested in any comments from any 
touch typists who tiy the Dvorak keyboard. I'll practice now 
and then (a long session gets too frustrating) and k«ep you 
posted as to whether I think I would ever get faster using it 
than the qweity keyboard that I have been using since my high 
school typing course. 
RA 
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Working With The System 

Many years back, before I was tunning OS-9, 1 found myself 
with a programming dilemma. I was working with a system 
on a S-100 bus, running a Z80 micro-P. I had written a 
Basic program that involved some I/O over a home brew bus 
to a piece of test equipment. Alas, the test equipment 
proved to be too fasti Or should I say the Basic was too 
slow! I proceeded to write the input/output routines in 
assembly code. My intention was to keep the basic program 
for the higher level intervention and use the machine code I 
had generated for talking to the equipment. Sounds simple? 
Well it wasn't! 

The inventors of the system had never planned such a thing. 
You could run Basic. Or you could run machine code. There 
wasn't any compromise, as far as the system was 
concerned. I immediately sought out a computer gum. A 
man whose knowledge of such things was impeccable. This 
was someone who had come to grips with the problem and 
survived. His advice was to "work around the system." 
He had solved the problem by writing a routine to load the 
machine code, the Basic interpreter, the Basic program, 
adjust the pointers and execute the whole mess. I being 
one to shun excessive ambition went the cowards way out. 
I loaded my program from Basic by poking it into memory. I 
also had to poke in a few pointers so Basic wouldn't 
overwrite it and I was all set. I had learned how to "work 
around the system". 

Good news! I havent had to work around the OS-9 system. 
With OS-9 you work with it. Basic09 is available, but it 
doesn't restrict what you can do. Most times you can find a 
way to do what you want with Basic09 or what language 
you like to work in. If not there is always writing your own 
routines and using them. You may want to do something 
faster than what is available in Basic09. Although I have 
found Basic09 to be very fast. And you might have some 
special need that just wasn't thought of when Basic09 was 
created. Whatever you want to do, you can work with the 
system. The languages, the commands, the system calls 
and everything works together. 

It is veiy seldom that I find something I can't do with 
Basic09. The language is well written. It handles 
everything a good Basic language should and much more. 
Occasionally something will come up that you cannot do or it 
may be something that you want to do a little differently. A 
good example is DATES. It is a psuedo string that contains 
the date and time. From a program you would treat it as a 
string. A line in a program like: 

PRiNT DATES 
might return 

86/15/12 12:24:38 



If you wanted to use the individual pails of the date and 
time you would have to extract them. Not necessarily a 
difficult task, but a little messy. You would need to used 
lines such as: 

year:=VAL(LEFr$(DATE$,2)) 

hour:- VAL(MID$(DATE$,1 0,2)) 
I think everyone has used lines like these, but wouldn't it be 
nice to read them directly. Listing 1 has a short subroutine 
that will return the date and time into a complex data 
structure. 1 he set up for it in a program would appear. 

TYPE time 

year,month,day,hour,minute,second:BYTE 

DIMt:time 
Using it, you would enter. 

RUN getime(t) 
and everything would be returned in the 6 byte time packet 
oft . So, the year would be t.year, the month, t. month and 
so forth. 

This subroutine is useful for showing how the parameters 
are passed to a Basic09 procedure. Everything is passed on 
the stack. If you're not familiar with stack operations let 
me tell you a little about them. If you are familiar with them, 
feel free to plod ahead 

The stack is a reserved area in memory that can be used for 
last-in/first-out storage. A special register, called the stack 
pointer or SP for short, points to the last entry. Pushing a 
byte on the stack involves decrementing the SP register 
and storing the byte at the new location it points to. Pulling 
a byte off the stack reverses the procedure. If a number of 
bytes are stored, when they are removed they come off in 
the reverse order they were put on. The stack has a number 
of excellent uses. When entering a returnable subroutine, 
the program counter is pushed on the stack. Then execution 
can be directed to the subroutine. When finished PC is pulled 
back off the stack and the program begins execution where 
it was before the call. Registers can be temporarily stored 
on the stack. The stack can be used a place of variable 
storage without having to provide specific memory in the 
data area. Data can be referenced by its offset from SP. 

A BasicOS subroutine uses some of these. Parameters are 
passed by pushing variable location and size on the stack. 
The parameter count is pushed on and a call is made to the 
subroutine. The subroutine in Listing 1 is easy to follow. 
There is only one parameter to pass. The size of the 
parameter is first pushed on the stack. It is a two byte 
integer value. In our case, it is $0006, since there are 6 
bytes in the time packet. Next the address of the time 
packets location is pushed, again it is a two byte value. 
Third, the number of passed parameters are pushed in two 
byte form; here, it is $0001. Finally, the call is made to 
Getime and the return address is pushed on it. 
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This makes using them in Getime a simple task. Return is at 
bytes from SP, Count is at 2 bytes from SP, Time is at 4 
bytes and Size is at 6 bytes. So, 'Idd Count.S' means load 
register D with the value at location SP+2. The other ones 
can be evaluated similarly. Notice that the line 'Done' uses 
'rts' to return to the caller. This pulls the last two bytes off 
the stack and puts them back into the PC register. The 
program continues execution from where it started. We 
could have also used a 'puis pc', which would have had the 
same effect. 

If more than one parameter is in the parameter list, these 
parameters are pushed on the stack in reverse order in 
which they appear. Let us say you pass three integers-A, 

B, and C. The size of C would first be pushed, and then it's 
location. Next, B's size would go on the stack and it's 
location. Finally, A's size and location would be pushed. 
$0003 would be pushed to indicate that there are three 
parameters passed and then the call would be made. This 
system is very flexible. You can pass a variable number of 
parameters. You can mix integers and byte values, since 
the size of them is known. As long as the subroutine you 
write is aware of what is being passed, you can do almost 
anything. 

Speed can be another consideration. I did some 
benchmark's quite awhile ago and found that Basic09 was 
indeed fast. Usually it ran 4 to 1 times faster than Basic 
found on the Color Computer. I am sure I don't have to 
convince anyone already running Basic09. But there comes 
a time that you really need more speed. I wrote a simple 
bubble sort to sort 100 integers in ascending order. It used 
2 FOR... NEXT loops. And swapped values as it went along. 
The time it took sorting the 100 numbers was about 16 
seconds. Surely, we can do it fasterl Listing 2 show a 
faster way. 

This sod routine is written in C code. C also passes 
parameters on the stack in 2 byte chunks. This time we 
identify the parameters in the argument list following 'sort'. 
They are 'count', 'array', and 'asize'. We don't identify a 
return since C knows it's there. Notice the declaration: 

int 'array, asize; 
We declare 'array' to be a pointer to some area holding 
integers and asize tells how many are there. 'Count' does 
not even get a mention, since itwill not be used. Its sole 
purpose was to be a position marker in the argument list. 
This little subroutine is almost identical to the Basic09 
version I wrote with a few exceptions. The extra variables 
are of the type 'auto', so they also get stack space. And 
one variable is of the type 'register' to help improve speed 
of execution. Another difference is that this routine can 
sort any size array. The Basic09 version would be limited by 
what was declared in the PARAM statement. The 
execution time for this bubble sort with 1 00 integers was 
about 4 seconds. Considerably faster than the Basic09 
version. 

By the way, this little subroutine written in C code must be 
compiled in a particular way for use by a Basic09 program. 
My original source was named 'soit.c'. So first, I compiled it 
to a relocatable module with: 

cc1 sort.c -rs 
The '-rs' option told the compiler not to link the module, 
leaving it in relocatable object format and not to generate 



stack checking code. Next I linked it by entering: 

clink sort.r -b=sort -o=sort 
The '-o' tells the name of the output file. The '-b' tells the 
name of the function that Basic09 will use when it 
executes a RUN. 

I think you'llfind Basic09 covers most programming needs. 
But when you need to create code outside of it, you'll find 
it's easy to do. Perhaps you'll need to do something out of 
the ordinary or just a little different. Maybe, you'll be trying 
to improve speed of execution. Whatever you do, isn't it 
nice to know the system works with you? And you don't 
have to work around it? 
RV 
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INTRODUCTION 

This chapter continues the discussion of C compilers and the 
description of the construction of an editor. 

C COMPILER INFORMATION 

Microware reports current known bugs in a Vendor Bug 
Report List. None of the other 6809 or 68000 vendors make 
such a list available. I praise Microware for this action, and 
hope the others will follow. Some of the more important 
problems are listed below. 

The following problems with the Microware os9/6809 C 
compilers were reported in Microware's Vendor Bug Repoit. 

The "signalO" function does not work properly. 
Microware suggests using "intercept()" t as 
"signalO" will not be supported on future 
releases. The UNIX V and new ANSI C standards 
both call for the use of "signalO", not 
"interceptO", so Microware's comment is 
surprising. 

The profiler does not work due to the absense of 
the module "eprof. Microware will supply a 
patch upon request. 

The following problems with the Microware os9/68000 C 
compiler were repotted in Microware's Vendor Bug Report. 
Casting to a smaller data type in many instances 
does not produce the coiTect code. Microware 
stated that this was a known bug and is fixed in 
version 2.0 of the C compiler. See the example 
program at the end of this chapter. 

There are several problems with the "-dname" 
compiler option. One of these silently causes 
incorect code, the other gives an error message as 
well as correct code. Microware suggests to avoid 
this compiler option temporarily. The #define 
statement works coiTectly. This was also reported 
by Bob Larson. 

Structures containing strings actually contain 
pointers to strings, not the strings themselves. 
The "sizeofQ" function provides the correct 
element size, given this condition. However, the 
user must be careful in moving structure elements 
within memory or to of from I/O devices, as the 
data in the strings is not present within the 
structure elements themselves. This same 
situation is true in all known current versions of 
the McCosh C compiler. 

A "case 0:" in a switch statement sometimes 
generates incorrect code. The person reporting the 
problem suggests prefixing the "case 0:" 
statement with a dummy case statement 



The C compiler generates incorrect code if a 
"return" statement is executed as part of an "if 
statement inside of a "for" loop. 

The "register" declaration sometimes causes the 
generation of incorrect code. 

The following problem with Microware os9/68000 C 
compiler version 1.3 was reported by Bob Larson, although 
not by Microware. 

The meaning of the value returned by the "getstat" 

function to determine the number of characters 

waiting is different between the Microware 6809 

and 68000 C compilers. Zero means "at least one 

character is ready" on the 6809, and "no characters 

are ready" on the 68000. This difference was found 

only by comparing the two manuals. 

One problem with the Microware C library which is 

documented in the os9/68000 C compiler manual involves a 

buffered file opened for update ("r+" or "w+"). The program 

is required to call "fseek()" or "rewindO" when switching 

from reading to writing or from writing to reading in order 

to flush the buffer. The UNIX V C compiler requires no 

such program action, as it automatically flushes the buffer in 

this case. 

THE C USERS' GROUP 

I have received several inquiries about the C Users' Group. 
This is a for-profit (not non-profit) organization which 
collects, organizes, verifies, and distributes public-domain C 
code for $8.00 per diskette. The dues are currently $15.00 per 
year. The address is as follows: 

C Users' Group 

Box97 

McPhcrson. KS 67460 

(316)241-1065 

They are looking for librarians for specific areas. Write to 
them, not to me, for more information. 1 have no direct 
relationship with them, other than being a member of the 
Group. 

LOW-LEVEL CURSES FUNCTIONS 

If the curses package is unavailable for a given system, but the 
terminfo package is available, many of the low-level curses 
functions may be provided in a reasonably-simple fashion. 

The C code below provides most of the low- level curses 
functions. The following simplifying assumptions have been 
made: 

The output device has 24 lines and 80 columns. 

Terminal attributes are line-oriented, not cursor- 
oriented. 

Any non-normal attributes are displayed as 
reveise video. 
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Attribute-change characters occupy zero or one 
spaces on the screen, but one position is reserved 
for each attribute change. 

Fields (areas between attributes) must start and 
end on the same line. 

Columns 1 and 80 are reserved for attributes. 

#include<ctype.h> 
/(include <stdio.h> 
/(include <iermio.h> 
/(define SGTTY struct termio 
/(include <lerm.h> 

#defineA ATTRIBUTES 0377600 
/(define A~BLINK 0002000 
/(define A~BOLD 00 1 0000 
/(define A" CHARTEXT 0000177 
/(define A DIM 0004000 

/(define A~1NVIS 0020000 
/(define A NORMAL 0000000 
/(define A~PROTECT 0040000 
/(define A'REVERSE 0001000 
/(define A~STANDOUT 0000200 
/(define AJJNDERLINE 0000400 

/(define X ATTRIBUTES (A_ATrR!BUTES & 
-A_PROTECT) 

/(define COLS 80 

/(define LINES 24 

/(define WINDOW 



struct scrstr 



/(define addch(ch) 
/(define addstr(str) 
/(define attroff(at) 
wattrset(stdscr,winch(stdscr) & 
/(define attron(at) 

wattrset(stdscr,winch(stdscr) | (at)) 
/(define attrset(at) 
/(define cbreakQ 



waddch(stdscr.ch) 
waddstr(stdscr.str) 



~(at)) 



wattrset(stdscr.at) 
wclear(stdscr) 



reselraw() 
wclear(stdscr) 
bell() 

flusher(TCSETAF) 
getchar() 

gets(str) 

win->_cury, x = win- 



Odefine clear() 

/(define echo() 

/(define endwin() 

#define erase() 

/(define flash() 

/(define flushinpO 

/(define getchQ 

/(define getstr(str) 

/(define getyx(win,y,x) (y 

>_curx) 

/(define inch() winch(stdscr) 

/(define move(y.x) wmove(stdscr,y,x) 

/(define mvaddch(y,x,ch) 

mvwaddch(stdscr,y,x,ch) 

/(define mvaddstr(y,x,str) 

mvwaddstr(stdscr,y,x,str) 

/(define mvgetch(y.x) 

/(define mvgetstr(y,x,str) 

mvwgetstr(stdscr,y,x,str) 

/(define mvinch(y.x) 

/(define mvwaddch(win,y,x,ch) 

(wmove(win,y,x), waddch(win.ch)) 

/(define mvwaddstr(win,y,x,str) 

(wmove(win,y,x), waddstr(win.str)) 

/(define mvwgetch(win,y,x) (wmove(win,y,x), 

getchar()) 
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mvwgetch(stdscr,y,x) 



mvwinch(stdscr,y,x) 



/(define mvwgetstr(win,y,x,str) 

(wmove(win,y,x), gets(str)) 

/(define mvwinch(win,y,x) (wmove(win,y,x), 

winch(win)) 

/(define nl() 

/(define nocbreak() 

/(define noechoO 

/(define nonl() 

#define noraw() 

/(define raw() 

/(define refresh() 

/(define standend() wattrset(stdscr,0) 

/(define standout() 

wattrset(stdscr,winch(stdscr) | A_STANDOUT) 

/(define winch(win) win->_y[win->_cury][win- 

>_curx] 

/(define wrefresh() 

struct scrstr 

{ 

unsigned short intcuiy, curx, _yy,_xx; 
unsigned char _y[LINES][COL5]; 

}: 

char *tparm(): 

int outc(); 

short int hrow, hcol, hidns, cursor_set - 0; 

SGTTY ttycurr, ttyold, ttynew; 

WtNDOW stdscm, 'stdscr - Astdscm, *curscr = 

Astdscm; 

b^pO 
{ 
put cap(bell, 0); 

) 

clearok(win, bf) 
WINDOW *win; 
short int bf; 

{ 
short int c, Lj, k, I, x, y; 

if (bf) 

{ 

getyx(win,y, x); 

reset screen(); 

for (f-0;j< LINES; ++j) 

{ 

for (i - 0. k - COLS - (!(j < LINES - 1)); i < 

if (win->_yrj)[i] !- 0x20) 
break; 
if(i>-k) 

continue; 
if ((j < LINES - 1) && (win->_y[j][i] >- 



k; ++i) 



0x80)) 
{ 



wmove(win,j,C0l5- 1); 
wadjcursor(win, 0); 
outattr(0x80); 
win->_xx - 255; 

} 

wmove(win, j, i); 
wadjcursor(win, 0); 
for ( ; i < k; (win->_curx = ++i)) 

{ 
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C - wm->_y(j][ij; 
if (c >- 0x80) 



{ 



wadjcun<x(win,0); 
outaurfc); 



} 

else 
if ((c !- 0x20) && (ispiint(c))) 

wadjcursortwin. 1); 
ptitehai(c); 



{ 



} 
else 

continue; 
win->_xx - i + 1 ; 
} 
} 
wmove(win, y, x); 



} 



initscr() 

{ 

ioctl(0, TCGETA, Attycutr); 

tlyold - ttyaur; 

sebipienn(0, 1.0); 

ttycurr.ciflag - IGNBRK | IGNPAR | IXON | 
IXOFF; 

ttycurr.coflag - ttycurr.ciflag - 
ttycurr.c_cc[VTIME] - 0; 

ttycwr.c_cc[VMIN] - 1; 

ttynew > ttycuir; 

ioctl(0, TCSETAW, &ttycurr); 

cursorset = strlen(tpann(cursor_address,0,0)); 

wclear(stdscr); 
} 

ouuttr(at) 
short int at; 

{ 
char *attr; 

putcapfattr - (at > 0x80) ? 
entersiandouirnode : 
exit_standoui_mode, 0); 
if ((!atlr) II ((int)magic_cookie_gIilch <- 0)) 
putchar(' "); 
} 

resetraw() 

{ 

setterm(&ttyold); 

} 

reset_screen() 

{ 

outattr(0x80); 
put_cap(cursor_normal, 0); 
put cap(clear_screen. 0); 
} 

setraw() 

{ 

settemi(& ttynew); 

} 

setterm(ttywhich) 
SGTTY ♦ttywhich; 

14 



tlycurr = *llywhich; 

ioctl(0. TCSETAW, Anycurr); 



} 



waddch(win, ch) 
WINDOW 'win; 
shoit int ch; 

{ 

shoit int x " win->_curx, y - win->_cuiy; 

if ((x >- COLS - 1) || (y >- LINES)) 

return; 
if (!isprinl(ch)) 

ch-0x20; 
if (winch(win) != ch) 

{ 

wadjcursor(win, I); 
outc(winch(win) - ch); 
++(win->_xx); 

++(win->_cui*); 



} 



} 



waddstr(win, str) 
WINDOW «win; 
char *str; 
{ 

while (*str) 
waddch(win, *str++); 
} 

wadjcursor(win, ca) 
WINDOW «win; 
shoit int ca; 
{ 

shoit int x = win->_curx, y - win->_cuiy; 

short int xx - win->_xx, yy - win->_yy; 

short int i - x - xx; 



{ 

&& 



>f((y!-yy)ll(x!-xx)) 



if ((y — yy) && cursorjight && cursoMefl 

(i <- cursorset) && (i >- -cursorset)) 

[ 
if(i>0) 

while(-i>-0) 
put_cap(cursorjight, 1); 
else 

while O-t-i <- 0) 
pul_cap(cursor_left, 1); 



else 



tputs(tpann(cuisor_address, y, x), I, outc); 



win->_yy - y; 
win-> xx - x; 



} 



wattrset(win, at) 
WINDOW «win; 
short int at; 

{ 
shoit int x = win->_curx, y - win->_cuiy; 
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if ((y >- LINES) II (x >- COLS) II 
((x — COLS - 1) && (y >= LINES - 1))) 
return; 
if (winch(win) !- 
(at - ((at & X ATTRIBUTES) ? Oxff : 
0x80))) 

{ 

if(x — COLS- J) 

at - 0x80; 
wadjcursor(win, 0); 
outattr(winch(win) - at); 
if (++(win->_xx) >= COLS) 

win->_xx - 255; 

} 

if (winocurx < COLS - 1) 
++(win->_curx); 

} 

wclear(win) 
WINDOW *win; 

{ 
short inti.j; 

win->_cuiy - win->_curx •> win->_yy - win- 
>_xx - 0; 
if(win-> y[0][0] !-0x20) 
for (i-~0;i< LINES; ++i) 
for (j-0;j< COLS; ++j) 
win->_y[i]U) = 0x20; 
reset screenO; 
} 

wmove(win, y, x) 
WINDOW «win; 
short int y, x; 

{ 

if (!((win->_curx - x) + (win->_cuiy - y))) 

{ 

wadjcursor(win, 0); 

iociKO, TCSETAW, Attycurr); 

} 
} 

outc(ch) 
charch; 

{ 
putchai(ch); 

} 

put_cap(cap, tc) 

char *cap; 

short int tc; 

< 
char *cp- cap; 

if (((int) cp !- -I) && cp && *cp) 



{ 



{ 



} 



if (tc && strchr(cp, '%')) 

if (((int) (cp = ipaim(cp, 1)) 
cp = cap; 

} 
tpuis(cp, Louie); 



C PROBLEM 

The previous C problem was to find the bug in the b-tree 
example program related to where "gets(q)" places the string 
that is read from the standard input device. The following 
program fragments should help the reader locate the problem: 

ffdefine STRING 4096 /* Init alloc for strings ♦/ 

#define ADDSTR 2048 /♦ Addl alloc for strings ♦/ 

char *q; 

q - cstore - alocstr(STRING); /* suing space */ 
cend = cstore + STRING; 
if (gets(q) -«= NULL) /♦ get first line ♦/ 
exit(0); 

allocostr - q; 

puts(q); 

q - nextstr(q); /* get new string pointer. */ 

while (gets(q) !- NULL) 



-1)11 (Sep)) 



{ 



/* Cteating a left subtree */ 

puts((r->left)->str - q); 
q - nextstr(q); 
break; /* get next line */ 

/* Creating a right subtree */ 

puts((r->right)->str - q); 

q - nextstr(q); 

break; /♦ get next line */ 



/* Returns pointer to W bytes for string storage. 

*l 

char *alocstr(n) 

intn; 

{ 
char*x; 
if((x-maloc(n))--NULL) 

{ 

fprintf(stdeiT. "No memory for strings\n"); 
exit(2); 

} 

return (x); 

} 

/* Returns a pointer to the next available string 
space. 

Gets more space if necessary. */ 
char *nextstr(s) 
char *s; 

{ 
char*x; 
if ((x = s + strlen(s) + 1) >- cend) 

cend = (x - alocstr( ADDSTR)) + ADDSTR; 
return (x); 

> 



The bug manifests itself when there are fewer characters 
remaining in the allocated block of characters than there are 
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characters in (he string being read with "gets(q)". The 
characters are placed directly into the allocated block, 
without regard to the number of characters remaining. In 
almost all cases, the string will overflow the allocated area. 

The bug is easier to comprehend in the case of a veiy short 
allocation (make STRING 64) and a very long input record 
(128 bytes). Then the very fiist "getc(q)" will overflow the 
allocated area. This type of analysis is quite often useful in 
such subtle cases. 

The problem is very obvious on systems with memory 
protection, if the address beyond the last-allocated area is 
outside the program's addressable memory range, as the 
system terminates the program prematurely. 
The problem is substantially more subtle on systems 
without memory protection. The string overwrites the 
contents of the memory locations at several addresses 
immediately greater than the address of the end of the 
allocated block. 

There are at least two good solutions to this problem. Either 
involves adding a definition of the longest allowable string 
to be input, in a manner similar to the following: 
*define MAXSTR 128/* Max string length •/ 
and using "fgets(x, MAXSTR, stdin)" rather than "gets(x)", 
in order to prevent reading a string longer than expected. 

The first solution is to allocate a fixed string similar to the 
following: 

charx[MAXSTRJ; 
into which to place the input character read by fgets, then 
call a version of "nextstr(x)" modified as shown below to 
obtain an address into which to copy the string contents. 

/* Returns a pointer to the next available siring 

space. 
Gels more space if necessaiy. */ 

char *cnext; 

char *nextstr(s) 

char*s; 

{ 
char*x; 

if (((x - cnext) + strlen(s) + 1) >- cend) 

cend - (x - alocstr(ADDSTR)) + ADDSTR; 
cnext- x + strlen(s) + 1; 
return (x); 

} 
Then "strcpy(nextstr(x), x)" will always move into 
allocated space, assuming that MAXSTR is less than 
STRING, and cnext is initialized to cend. 

This corrects the problem, at the expense of one new fixed 
string area, some wasted space at the end of each allocated 
area, and a somewhat slower program due to the time 
required to move the characters from this fixed area to the 
allocated block. 

The second solution is to increase the size of each allocated 
block by MAXSTR, to prevent any possibility of placing 
characters beyond the end of the allocated area, but not to 
indicate this additional allocation in the pointer io the end of 
the allocated area. Thus the input characters would be read 
directly into the allocated area and "nextstr(x)" would be 
modified as follows: 

/* Returns a pointer to the next available string 

space. 
Gets more space if necessary. */ 

char *nextstr(s) 

char*s; 

{ 

char*x; 



if ((x - s + strlen(s) + 1) >= cend) 
cend - (x - alocstr(ADDSTR + MAXSTR)) 

+ ADDSTR; 
return (x); 

} 
This also corrects the problem, at the expense of a somewhat 
greater amount of wasted space at the end of each allocated 
area; however, it runs faster than the other solution, since it 
does not move the input characters twice. 
The program may be improved in another manner, normally 
saving much more space than that wasted by either solution. 
Theie is no logical need for separate allocation of the b-tree 
nodes and the string space, and the two allocation routines 
may be readily combined into one routine. Not only does this 
save program code, but it saves space and time, since fewer 
allocations are made and space is wasted only at the end of 
each allocation. 

The only really tricky part of the combination of these 
allocations occurs on a computer, such as a MC68000, PDP- 
II, WE3200. or IBM370, which requires pointers to be 
aligned on a word or double-word boundary. The simplest 
means in which to accomplish this is to force alignment to 
the next address divisible by 4. However, if portability to 
such a machine is not a problem, the alignment is unnecessaiy. 
For the next C problem, code a function to print the B-tree 
after it has bsen built by the program. Then the program will 
function both as a sort and as a duplicate-remover. Hint: use 
both recursion and iteration to simplify and speed up the 
function. 

EXAMPLE C PROGRAM 

Following is this month's example C program; it was placed 
on NewsNet by Bob Larson and illustrates a problem he 
discovered with several C compilers in the area of casting and 
double casting. If a leader discovers another C compiler on 
which this program fails, please send results to Bob Larson 
or to myself. 

/• 

Program to test sign extention by casting, 
by Robert A. Laison. 
Uucp: ihnp4!sdcrdcf!oberon!blarson 

I need to sign extend the eight least significant 
bits of an unsigned variable to an int. 

Given that char is an 8-bit and signed (not a 

completly 

portable assumption, but true on many machines), 

casting to a char and then to an int will cause the 

sign extension f need. 

Not wanting an extra temporary variable, I 
decided 

that double casting would do what 1 want: 
intvar-(int)(char)unsignedvar; 

However, I found that it did not work correctly 

on the 

Microware os9/68000 C compiler (vl.3) 1 was 

using at the time. 

Microware says that their problems are fixed in 

version 2.0. 
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K&R (section 2.7) and some other C compilers 

agree 

with my intetprecation: 

Machine os compiler bad possible 

Vax7504.2BSD cc 9 

Prime Primos cc 19.4 9 

68000 OS9/68kM.W1.3 9 9 

3B2 UNJXV cc 9 

6809 FLEX McCoshv27 3 3 

A C compiler validation suite should include a 

program 

that tests this use of casts. 

This program assumes 8-bit characters, and 

character tests 

are not valid otherwise. 

This program assumes 16-bit shoits, and short 

tests are not 

valid otherwise. 

If siz#of(int) !- sizeof(short) and sizeof(int) != 

sizeof(long) 

int to long expansion testing should be added. 
•/ 

/* comment out as appropriate */ 

/* Odefine signedchar ** declaration "signed char" 

allowed */ 

((define unsigchar /* declaration "unsigned char" 

allowed */ 

((define unsigshoit /* declaration "unsigned short" 

allowed */ 

((define unsiglong /* declaration "unsigned long" 

allowed */ 

main() 

{ 

int bad - 0, possible - 0; 

chare; 
Oifdef signedchar 

signed char sc; 
Oendif 
Oifdef unsigchar 

unsigned char uc; 
Oendif 

shorts; 
Oifdef unsigshort 

unsigned short us; 
Oendif 

inti; 

unsigned u; 

long ]; 
Oifdef unsiglong 

unsigned long ul; 
Oendif 

u - Oxlff; 
c - (char)u; 
if(c<0) 

printf("Characters are signedAn"); 
if(((char)u)!-c) 
{ 

printf("((char)u) !- c\n"); 

bad*-*; 

} 

possible-)--)-; 
if (((int)(char)u) !- (int)c) 

{ 

printf("((int)(char)u) !- (int)c\n"); 



bad++; 

} 

possible-^; 
i - (int) c; 

if (((int)(char)u) !- i) 
{ 



printf("((int)(char)u) !- i\n"); 
badVt; 

} 

possible**; 
Oifdef signedchar 
sc -(signed char) u; 
if(sc>-0) 

printf("??7 signed char are not signedAn"); 
if (((signed char)u) !- sc) 

{ 

printf ("((signed char)u) !» sc\n"); 
bad**; 

} 

possible**; 
if (((int)(signed char)u) != (int)sc) 

{ 

printf("((int)(signed char)u) != (int)sc\n"); 
bad**; 

} 

possible**; 

i - (int) sc; 

if (((int)(signed char)u) != i) 

{ 

printf("((int)(signed char)u) != i\n"); 

bad**; 

} 

possible**; 
Oendif 

if (sizeof(int) > 2) 

{ 

u-OxIffff; 
s - (short)u; 
if(((shoit)u) !-s) 

{ 

printf("((short)u) !- s\n"); 
bad**; 

} 

possible**; 
if (((int)(short)u) !- (int)s) 

{ 

printf("((int)(sho:t)u) !- (int)s\n"); 
bad**; 

} 

possible**; 
i - (int) s; 
if (((int)(short)u) !- i) 

{ 

printf("((int)(short)u) !- i\n"); 
bad**; 

} 

possible**; 
Oifdef unsigshoit 

us - (unsigned short) u; 

if (((unsigned shoit)u) !- us) 

{ 

pi intf(" ((unsigned short)u) !- us\n"); 
bad**; 

} 
possible**; 

if (((int)(unsigned short)u) != (int)us) 
{ 
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printf("((int)(unsigned shon)u) != 
(int)us\n"); 
bad**; 

} 

possible**; 
i - (int) us; 
if (((int)(unsigned short)u) U i) 

{ 

printf("((int)(unsigned short)u) != i\n"); 
bad**; 
} 



possible**; 
#endif 

} 

printf("%d bad out of a possible %d.\n", bad, 
possible); 
} 

If anyone has printable example C programs, please send 

them. You may receive fame, if noi fortune. 

BP 



XDMS 



An Example! 



INIKODUCTION 

Recently I had a need lo do a complete expense budget for 
the company that I work for. I wanted the summaries of the 
budget in formats similar lo the "Mainframe" there. I have 
DYNACALC and I considered using it. It certainly would do 
the job if 1 don't exceed the size requirements. I considered 
using it and finally decided to do the job with XDMS. One of 
my motivations was to write this article and provide all of 
you with a glimpse of the power of XDMS! This article only 
scratches the surface of what can be done with the very 
powerful and reasonably priced database. The main reason I 
started this program was to do the budgeting for an 
employee buy-out of the company I work for. I have since 
learned that the employee group was not successful in the 
asset buy-out and the company has been sold. Last 
Thursday all the employees including myself have been 
permenantly laid off. Real nice for next weeks Christmas! 
lAoks like I'll have a lot of time to answer any questions 
you may have about these programs. I hope you can use 
these programs in your work or modify them as you need. If 
you don't want want lo type them in, send me cither a 5 or 
8 in disk, a SASE mailer and SIS and III copy them over 
for you. 

Jim Gcrwilz 

7907 E. Wood Dr. 

Scollsdalc, AZ 85260 

(602) 948-9304 

Remember— You have lo have your own copy of XDMS 
version 1.1 to use these programs. I suggest that you buy 
the latest version as it is absolute DYNAMITE!! 
DESCRIPIION OF THE PROBLEM 

In my situation, almost all the requirements were 
predetermined. Departments already had assigned numbers and 
corresponding names; the numbers were 3 digits and the 
names did not exceed 35 characters. Account numbers 
were 4 digits in the Chart of Accounts and were all 
prcassigncd. I wanted to be able to request 4 reports. The 
first one I wanted was "BUDGET BY DEPARTMENT". In 



this report, I wanted an individual sheet for each 
department with the department name at the lop; all the 
account numbers in ascending order which had dollars for 
that department. The headings across the page were lo be: 
ACCT#, NAME, YEARLY (lolal), PCT ( as a percent of ihc 
total of all expenses), (amount by month for Ihc months of) 

JAN, FEB NOV, DEC. I also wanted the PCT and 

YEARLY fields as well as the monthly amounts totaled on 
each page. The second report that I wanted was a "TOTALS 
BY ACCOUNT' report. Here I wanted all accounts lo be 
totaled by account number and placed in sequence with a 
grand lolal for the fields YEARLY, PCT and JAN, 

FEB NOV, DEC al the end. This report is a summary of 

another report that we will discuss next, bul it is an 
example that has some bcnifil. The third report I wanted 
was "ACCOUNTS BY PARENT DEPARTMENT". This report 
is one which shows, in account sequence, which 
department each account came from, and then provides a 
subtotal for the account and a grand total at the end. You do 
not need the second report if you prepare this one. I like 
this report because when you start thru a budget adjusting 
sequence, you sec each account in each department and 
have an idea where to go to change your data in the database 
by using the UPDATE command. You can also sec the total 
change in the account subtotals here. The last report I 
wanted is a little tricky but is needed. It is called 
SUMMARY BY DEPARTMENT. In reality this is needed lo 
provide a basis for a "pro forma" PAL statement. In the 
case I have here, it provides a very good example on how to 
pull various amounts out scperalcly and summarize totals. I 
suggest that you review each of the example printouts for 
format and then read Ihc "CTL" program discussions 
carefully lo sec the things being done. I will discuss each 
program later in the article. 

IMPORTANT 

The enclosed programs arc written for a Microlinc 182 
printer lhal can print 132 columns across. If you do not 
have such a printer, you will have lo change the 
programs to print less columns. I would suggest that you 
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include only 6 months in a pass, and make two passes on 
each printing. 

HOW TO USE 

To use these programs I suggest the following: I. Using 
your editor, enter the .CTL Tiles as shown. 2. Using 
XDMS and the DEFINE command, define the 3 .DMS files, 
named BASE, ACCTS and OPSDEP. 3. Place these .CTL 
and .DMS files on a freshly prepared bootable system 
disk, along with a minimum number of .CMD files. Have 
the STARTUP file define the Work and System drives as 
(zero). 4. Per the XDMS manual, prepare a VMPAGE disk 
for use in drive I. 5. Using XDMS and UPDATE, enter all 
of your account numbers, (4 digits), into ACCTS along with 
a 10 character identifier name and a SO character (max) full 
name/description. 6. Using XDMS and UPDATE, enter all 
of your department numbers, (3 digits max), into the 
OPSDEP file, along with a corresponding 35 character 
department name that you want to appear on each BUDGET 
page. 7. Using XDMS and UPDATE, enter the BASE 
program for update. For each department that you want to 
have a budget for, enter the DEPT number and a desired 
ACCT# number. Enter only the departments desired and 
account for each dcpl. This is the basis for your budget you 
must make sure you gel all the entries correct. I suggest you 
leave the YEARLY field blank here and use Ihc "I" command 
in UPDATE to repeat entries by department. As an example: 
If you had two departments numbered 130 & 600; and you 
wanted two accounts in dept 130 and 4 in dept 600; you 
must 6 total entries in the BASE database. Two will have 
dept number 130 and 4 will have dept 600. If both have an 
account number 7000 for Travel, then one of Ihc entries for 
each dept must be account 7000. 8. Using XDMS and 
GENERATE command, run the BUILD program by entering: 

XDMS:GENERATE BUILD<cr> This will merge all 
the ACCT# identifiers from the ACCTS file and will also 
add all the 12 months to create a new file called BUDBS. 
This is your main budget file. If for some reason you have 
forgotten to add an ACCT# in your BASE file for 1 or more 
departments, you can enter the DEPT and ACCT# info in 
BUDBS and the run GENERATE MERGE. This will add the 
correct account identifiers to the BUDBS file. I guarantee 
that you will need this option. The reason for these two 
activities is so that the identifier for each account will 
always show up the same no matter where you use an 
account number. 

9. Using XDMS and GENERATE, the following program can 
be used to print a list of the departments and corrcspnding 
account numbers that you have entered. Run this program 
and check each entry to ensure that you have an identifier 
under the fieldname NAME. If you don't, then you have 
entered an account number into the file but you have failed 
to enter that same number into the ACCTS database. You 
must cither correct your entry in the BASE database file or 
add the new account number into the ACCTS file. 

Here is the program to check your entries: XDMS:P 

GENERATE <cr> FILE BASE<cr> PRINT 

DEPT,ACCT#,NAME<cr> SORT BY DEPT.SORT BY 

ACCT#<cr> ON DEPT SKJP 2<cr> MARGIN 5 

TABSET 4 PAGE 60,6 PAUSE OFF<cr> END<cr> 

This will print the desired proof list. 



10. You are now ready to enter your own data and run 
the programs. Here arc the only rules and limitations on 
their use: 

RULES FOR DATA ENTRY 

If you want the computer to "spread" the YEARLY amount 
evenly across each month, put the desired dollar value 
into the YEARLY field and ignore any fields with the 
name of the month. If you want to spread the data 
yourself and don't want Ihc computer to do it, enter a 
(zero) amount into the YEARLY field and then proceed lo 
enter your own data into each of the months desired. The 
computer will total the amounts you enter into any of the 
months and place that value into the YEARLY field at the 
time of printout. 

ORDER OF RUNNING PROGRAMS 

You can run ACCTOT or ASSEMB at anytime. You can 
only run SUMMRY or PARENT after you have run at 
least one of the other two. This can be modified if you 
want to try your hand at changes. 

LIMITATIONS 

Data fields have the limitaions that have been identified 
before. The only other area that can be a problem is the size 
of the Integer fields that hold your monthly amount and also 
Ihc YEARLY field. YEARLY can hold the number 
99,999,999 without overflowing and truncating data. The 
monthly fields arc 6 digit integers so they can only hold 
999,999 before they overflow. These sizes were chosen 
carefully to enable all of the desired data to be printed in 
132 columns. You may change them if you will exceed 
their limits but I can't imagine that you will need lo. 

PROGRAMS AND EXPLANATION 

BUILD.CTL 

This program takes the BASE file with it's three fields, 
DEPT, ACCT#, YEARLY, and merges the corresponding 10 
character account identifier name from the accounts file for 
each entry you have made in each department. This ensures 
thai each account number gels the same name throughout the 
database. It also allows you a way lo check and sec if you 
have entered real account numbers. The resulting database 
created after BUILD is run, is the main file BUDBS. This 
file also includes the 12 monthly fields, ready for data input. 
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FILE GAS UK euro 

SHK DEPT ttCH 

ma KCTS.WK IBIND «tr« 

»W YEARLY 

OEFI* JSM.1,6 

DEFIC FEB,!,!, 

DEFINE WW. 1.6 
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EFI* APA.l.i 
BEFltC NAY. 1.6 
DEFINE ,«*.t.t 
101* .11., 1.6 
DEFI* AUG.I.t 
DEFI* SEPU,* 

sri* act.:.* 

HTl* KN.I.A 
DEFItC OECI.i 
SCR? IT K?1 SORT IV «XI» 



MERGE.Cn. 



This program does the same thing as BUILD except that it 
works on ihe file BUDBS. It is used after you have already 
run BUILD and have gotten lo Ihe point of adding a lot of 
account numbers into the main file. It should only be used 
for this purpose. This program leaves any data that you may 
have palaced into the YEARLY lield and the monthly fields. 



HHIIIIIIIMIHIIIIIIIIimWHWHHll HHIM 

• ifitt.cn. 
< 

• rev i.oo iz-o>c jk conn 

I 

»«»w mm wwmtiwMiwi MMMWMM 



Flli BJDK NA* CUBS 

SAVE DEPI ACCFI 

OGE ACCTS.NW USING NX II 

save tB»» ,m feb nn> af* «» ,m m aug spi on mm dec 

SORT BY BEPT SORT BY NXTl 
EM) 



Flli BUSS 
ECtO HE (11 m 
RLM 



SORTING rt/W r RECORDS 



Fit! BUDBS «W YEAAAATS 

num 

COPY IF YEARLY O 

CN.C YEARLY / 12 • 100 M> / 100 ■ RECI 

CALC NEGI • .MM 

CALt NECI ■ FEB 

CALC RECI ■ RAA 

calc reci ■ an 

CN.C RECI ■ NAY 

■ ,« 

■ Jl 

• MC 

• 3EPI 

■ KI 

• KN 



ACxnor.cn. 



CALC RECI 
CALC RECI 
CALC RECI 
CN.C RECI 
CALC RECI 
CALC RECI 
CMC RECI • or 
RUN 
t 
* 

file suxrs 

EOO HE (IB (W SORTIW (OfTHV RECORDS 

RUN 

■ 
> 

Fiii aces has tome 

COLHt 

copy if mm ■ o 

race jan * feb ♦ rm * apr ♦ nay » .« » .11. ♦ auc ♦ apt reci 

CALC RECI » OCT . NOV . SEC ■ YEARLY 
NU« 

• 
* 
file lame IRQ. ye/wants najc row 

EOC (IE (II K> SAVING HETtEM BUDGET F|[£ 

OP* 

cam 

HUH 

I 
• 



This program generates Ihe report TOTALS BY ACCOUNT. 
It should normally be run last after all your other work is 
done. The following is an explication of how it works. Line 
16 thru 32 selects all of the records in the BUDBS file, 
which you want the computer to spread evenly across 
the 12 months, (done because YEARLY is not equal to zero). 
Line 40 thru 45 selects all Ihe records which you have spread 
the monthly data, (done because YEARLY is equal to zero). 
Lines 48 thru 52 recombine the two groups of data 
into a temporaiy file named TEMPA. Lines 64 thru 72 
merges the names of each of Ihe operating departments 
into ihe file. Lines 93 thru 106 generates the actual report. 

Several programming tricks are used lo generate effects on 
Ihe screen as well as manipulate data. Sec the section 
TRICKS later in the article. 









1 






• 
1 
• REV 1.00 


Accior.cn. 




12-02-S5 


JACEMITZ 


1 







FILE TERRA NNC TEHPT 

ECW (IE (IB (19 .... CN.CUATING TOTN. OF YEARLY ArOAlTS AND SAVING 

UTIW N N I FILL I 

SAVE YEARLY AS SUVT0I 

nun 

SUI BY N 
RUN 

1 



ICRGING NAMES Of TOWIING CBWIIOTS 



Flli TElfA WAE TFJf 
EDO (IE (IB (59 ..... 

define n.n.i fill 1 

save dept 

urge o^w.ophept using dept 

save acch naff yearly .ma feb aar apr nay ,w ju 

save alg spi oct nov dec 
court 



• 

I 
Flli 

EDO 

RUN 

• 

I 

Flli 

SAVE 

HE AGE 

SAVE 

cam 

RIM 

I 
i 



BUDBS 

(IE (IB Kfl 



HEDGING TOTN OF YEARLY DATA WIN RE9TO0 DATA 



TERP NAM TM> 

N.BEPI.OP-OEPT NXTl NAM YEARLY 
rOPT.SLtt-IOT USING N 
MM FEB m APR NAY .IN .11. AUG SPt OCT NOV OK 
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Fin suns 

toe he in •» 

RUH 



TOTM. HECHE AVAILAB.E FW THIS REPTJ1T 



COPY 
COUNT 
RUN 



FILE IDT NAME TOTM-BY 

title — roms bt mxomi for all departments = 

SPACE MUSE OFT MARGIN 7 PACE M.t 

CROC SUM-TOT 

IF YEARLY O 

PRINT ACCTI NAME YEARLY 

GEF1* PCT. 0.3. 2 

PRINT J* FEB MAR APR NAY IK ,U AUG 

PRINT SEPT XT NOV DEI 

CALC YEARLY I SUN-TOT i 10000 MO / 100 ■ PCI 

SORT BY ACCTI 

an BY ACCTI 

TOTM. YEARLY PCI JAN FEB Mr* APR Mr .IM ,U MIC SEPT KT NOV DEC 



ASSEMB.CTL 

This program generate ihc rcporl DEPARTMENT BUDGET. 
Most of the program is a duplicate of ACCTOT.CTL so that 
either can be run at any time. Lines 90 thru 115 actually 
generate the rcporl. 



MHWWHWIIHWHHWHimWHIIMIIIIH ♦ 


t 

i 

• REV 1.01 
t 

t 




ASSRB.cn 


i 


L2-0?« j» G0UITI 


FILE MBS 






ECHO (IE (IB (W 


SORTING YEARLY RLOFOS 


mi 






• 






i 






FILE atfiS NAME YEARANTS 


COM 






C0PV IF YEARLY O 


CALC YEARLY / 12 


« 100 RW / 100 « FECI 


CALC REGI - 


JAN 




CALC REGI * 


FEB 




CMC REGI • 


MAR 




CALC REG) > 


APR 




CALC REGI * 


MY 




CALC REGI • 


JIN 




CALC REGI * 


.a 




CALC REGI > 


AUG 




CAU REGI * 


SEPT 




CALC RKI * 


XT 




CALC REGI • 


UN 




CALC RKI - 


OK 




RUN 






i 






FILE BUBS 






ECHO HE (IB Bv 


SQRTINj KMTM.Y RECOHE 


Run 






• 







file Bias name rame 

COMT 

COPY IF IMPLY > 

CAU JAM ♦ FEB • MAR ♦ APR ♦ NAY i UM » Jll 

CALC RED I . OCT ♦ NW ♦ DC " YEARLY 

tui 

t 



FILE MONTHS IPd YCARAAIS NAME TENPA 

ECHO (IE (II (W SAVING HESWWD BUTJCFI FILE 



BUG . SEPT « REGI 



FILE 1EMPA NAME TEMPI 

ECHO (IE (IB (39 .... CALCULATING TOTM. OF YEARLY AMOUNTS AND SAVING 
OEFIIC N N I FILL 1 
SAVE YEARLY AS SUM -TOT 
COUNT 
SUM BY N 
RUN 
t 
* 
FILE 1EMPA NAME TENP 

EOO (IE (IB t» MERGING NAMES OF OPERATING DEPARTTENTS 

DEFINE N.N. ! FILL I 

SAVE SEPT 

MERGE OPSDEP.GP-OEPT USING DEPT 

SAVE ACCTI NAME YEARLY JAM FEB IW APR NAY .IM JUL 

SAVE AUG SEPT XT NOV DEC 

COUNT 

RUN 

FILE BUBS 

ECHO (IE (IB 159 MERGING TOTM. OF YEARLY DATA UIIK RE3WAD DATA 

RUN 

• 

• 

FILE Til> NAME TOP 

SAVE N.DEPI.OP-DEPT ACCTI NAME YEARLY 

MEMs; TEHPT.9H-T0T USING N 

SAVE JAN FEB MM) APR NAY JIN JUL AUG SEPT XT NOV OK 

COUNT 

RUN 



FILE BUBS 
ECHO (IE (IB (59 

RUN 



TOTAL RKUR05 AVAILABLE FOR TNIS REPORT 



FILE TEMP NAME T -BUDGET 
SPACE 

COUNT 
HEADING 



(EPT NAME I (OP-DEFT > 



X V 2 Btifeft 



EMI 

CACHE OP-DEPI 

CACHE SUM -TOT 

IF YEARLY O 

PRINT HPT ACCTI NAME YEARLY 

DEFINE PCI. 0.3.2 

PRINT JAN FEB MAR APR MAY M JUL AUG SEPT 

PRINT XT NOV DEC 

CALC YEARLY / SUN-TOT • 10000 M / 100 ■ PCT 

SORT BY DEPT SORT BY ACCTI 

SUBTOTAL YEARLY PCT .MM FEB MAR APR HAY .IM JUL AUG SEPT XT NOV DEC 

TOTM 

a DEPT EJECT 

PAGE 60 t 

PAUSE OFT 

MARGIN 

END 



PARENT.Cn. 

This program can only be run after you have run 
ASSEMB.cn. or ACCTOT.CTL. As mentioned before, it 
is very uscfull in the budgeting process because it 
allows you to sec the source department for each account. 
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This is usually needed when your budget comes out too 
high arid needs to be cut, (ever seen a budget too low?). 



JKCEMIW 



*I»*HM«4*I 



Fill TOT NIK TOTM.-BV 

title ■=■= accoms fru parent sramom — — 

SPACE PAUSE OFF HARDIN 7 PAGE 60.4 

WOC SUN-TOT 

mm «XII NAME DEPT (!Mt 

DEFINE PCI. 0.3.2 

PRINT JAN FTJ AAA APR WY JUN JX AUG 

PRINT SEPT OCT NOV DEC 

CMC YEARLY / 9UK-T0I • 10000 M / 100 • PCT 

SDR! By ACCTI 90)1 BY DEPI 

SUBTOTAL YEARLY Pn.iWFOI<AAA«l«AYJUNJLlALIJSEPTrjCTNflvQEC 

ON ACCTI SKIP 2 

Torn 



SUMMARY.CTL 

This is the other program that you can only run after 
ASSEMB.CTL or ACCTOT.CTL. This program generates the 
total by department grouping of budget data. There arc 
several unique items in this program that you should note 
since you may not want Ihem. 

a). In lines 47 thru 54, I pull the department 245 costs out 
of the 200 department summary. This is because my 
company identifies this cost as a sepcrale item. If you don't 
want it this way, delete lines 47 thru 54 and line 28. b). In 
lines 88 thru 95, I pull out ACCT# 7401, Interest 
Expense, from Ihc department 500 summary. If you don't care 
lo do this, delete lines 88 thru 95 and line 59. c). If you 
take cither option a or b above, don't forget to drop the 
appropriate "INCL" statement and file name in lines 98 
and/or 99. 

Lines 98 thru 108 generate the sum of each department 
expenses. Some of you will notice that this format is part 
of a pro forma expense statement. That is why I wrote 
SUMMARY Ihc way I did. 



DEFINE DEPTS. N.4 Fill 100 
SAVE YEARLY 
an BY DEPTS 

rim 

* 

I 

fill TEW NWC SIC00 

CMC DEPT 

OR DEPI O 245 

IF HP! > 1». IF DEPT < 300 

DETIK NAHE.A.3S Flit. Pr«4«ti«n Ctits 

DEFINE 0EPTS.N.4 Fill 200 

SAVE YEARLY 

911 BY DEPTS 

RUN 

• 

I 

Fill TEW NWC suocs 

CAOC DEPT 

IF 0EPT } Z99. IF DEPK «00 

DEFINE Wrt.A.35 Fill Iterrtnti Cost 

DEFINE DEPIS.N.4 Fill 305 

SAVE YEARLY 

SIM BY DEPTS 

RUN 

i 

t 

FILE MIT NAME SUCH 

CAOC DEPT 

IF DEPT - 2« 

OEFIIC HW,A.35 Fill Strtitu Ctiti 

DEFINE DEPTS. N.4 Fill 245 

SAVE YEARLY 

911 BY DEPIS 

M 
• 

FILE TO? NAME SUHM 

CAOC DEPT 

IF ACCTI O 7401 

IF DEPT 1 499. IF DEPT < WO 

DEFINE NK.A.3S Fill Gtntrtl w* Afcmittrttiv 

DEFINE 0EPIS.A.4 FILL 500 

SAVE YEARLY 

911 BY DEPTS 

UN 

I 

t 

FIIE TEN> NAME SLM6O0 

CAOC DEPT 

IF DEPT > 599. IF DEPI < 700 

DEFINE NAH1.A.35F11L EOP Otrt 

DEFINE DEPIS.N.4 FILL 600 

SAVE YEARLY 

an by depts 

RIM 

t 



1 

* 

I 

• REV 1.00 

I 

• 
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i FIIE TO GENERATE DC SUMWY AAHMTS 
i FR0X DC TBf Fill. AFTER -ACCT0T.CII" 
> OR 'ASSES. CTT GTJCRAIES DC TFJf FIIE. 



FILE IE7f> name anion 

CAOC DEPT 

IF DEPT > 99. TF DEPT < 200 

DEFINE KW.A.35 Fill Sll.i Exrtnir 



FILE TEN? NATE 3H700 
CAOC OEPr 

IF 0EP1 > tW. IF DEPI < BOO 
0* I* WW.A.3S Flit. A iM D 
DEFINE DEPTS.N.4 Fill 700 
SAVE YEARLY 

an by depts 

HUN 

A 

* 

FILE IB? NNC SUCOl 

CAOC DEPT 

IF DEPI • SOI. IF ACCTI • 7401 

DEFINE NAK.A.35 Fill Uttritt Exwnie 

DEFINE 0EPTS.N.4 FILL 501 

SAVE YEARY 

Silt BY DEPTS 

RUN 

• 
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TRICKS 

There are a number of "(ricks" that I have used, to do some 
of the things in these programs. Since I have a great deal of 
time invested in learning them, I would like to pass them 
along to you to shorten your learning cycle. 

1). In several of the programs you will sec the statement: 

"ECHO @1E IB 59 MESSACE" This statement 

sends a home up, clear screen to my QVT-I02A icnninal and 
then prints the MESSACE on the screen. You may use 
multiple ECHO commands if you need to. 

2). I have found that in the version of XDMS that I have 
(1.1), an ECHO statement in a file with an IF statement will 
not work. To get around this, I put ECHO statements in 
sepcrale program segments as you sec in lines 11, 12, and 
13 in the ACCrOT.CTL program. 

3). In order to calculate the percentage called PCT in 
the various reports, I needed to have the grand total of all 
expenses from the field YEARLY from all entries. I then 
needed to merge this value back into the file. The way I 
did this is shown in lines 55 thru 61 of ACCTOT.CTL. 
These lines of code save the grand total of YEARLY in a 
field named SUM-TOT of a file named TEMPT.DMS. I used 
another trick here to prepare a way to merge this data back 
later and also allow me to sum it in line 60. This is done 
by defining a new field "N", as (N)umcric of size I and 
FILLing it with a value of 1. This field will be used later 
for merging the data. In line 66 of ACCFOTCTL. I add the 
same "N" field to the database. Then in line 82, I use the N 
field in the main file and the N field in the TEMPT.DMS file 
to merge SUM-TOT into all records. The value of SUM-TOT 
is then used later in the program to calculate PCT for each 
entry. Programs like this take longer to run than a 
spreadsheet would, but you have the advantage of unlimited 
records. 

4). Please note the "OR" statement in line 26 of 
SUMMARY.CTL. If you read your XDMS manual v-c-r-y 
carefully, it is clear that "IF statements following OR 
statements are taken as logical AND criteria'*. This is 
demonstrated in line 28. 

5). Use of the "FILL" command is demonstrated in several 
or the programs, especially SUMMARY.CTL. 

6). These programs represent a good example of the 
power of a database as opposed to a spreadsheet. For very 
large jobs a database has certain advantages over a 
spreadsheet. 1 believe spreadsheets like DYNACALC are 
more flcxiablc and results are obtained quicker if your job 
is small, (ic. less programming). 

•66' Micro Journal 



7). Line 102 in the ACCTOT.CI"L program correctly rounds 
the PCT result so that errors will not accumulate. The " * 
10000 RND / 100" gives a correct result in the second 
deeimal place. This was satisfactory for me. even though the 
sum of PCT can be 100.1 or 99.9. 

8). The SHOW.CTL program is strictly an example of how 
to use the STRING command to seperate out a field and do 
something uscfull. You could easily devise a set of 
ACCTS's that could be broken down into sub-accounts etc. 
I added this strictly as an example. 

FILE DEFINITIONS 

This is what the file definitions should look like: 



ItASE 




FILE— PRINT — 


1 GRP/FLD 


FBI 


OFS IEN OFS LEN 


1 BASE 


G.3 




KEPT 


N,3 


8 2 8 3 


ACCTi 


A. 4 


2 15 4 


YEARLY 


1,8 

IRD LEU 


6 +11 V 


TOTAL RECC 


GTH: 18 28 


ACCTS 




FILE — PRINT-- 


1 GPP/FLD 


FAT 


OFS LEN OFS LEN 


I ACCTS 


6,3 




ACCTI 


A. 4 


8 4 8 4 


NAME 


A, 11 


4 IB 6 IB 


DESC 


A. 58 


14 SB 17 58 



TOTAL RECORO LENGTH: 44 



47 



OPSDEP FILE— PRINT- 

I GRP/FLD FIU OFS LEN OFS LEN 

I OPSDEP 6,2 

DEPT N.3 8 2 B 3 

OP-DEPT A, 35 2 35 5 35 



TOTAL RECORD LENGTH: 


37 




48 


MDBS 




FILE 


— 


PRINT — 


1 6RP FLD 


FNI 


OFS 


LEN DfS LEN 


1 BUDBS 


6,14 










DEPT 


N.3 


8 


2 


8 


3 


ACCTI 


A. 4 


2 


4 


5 


4 


MANE 


A, IB 


4 


18 


11 


18 


YEARLY 


1,6 


14 


4 


22 


9 


JAN 


1.6 


28 


J 


32 


7 


FEB 


1.4 


23 


3 


48 


1 


NAR 


1.6 


24 


3 


46 


7 


APR 


1.6 


29 


3 


54 


1 


NAY 


1.4 


32 


3 


44 


7 


J UN 


1.4 


35 


3 


72 


1 


JUL 


1.4 


36 


3 


88 


7 


AUG 


1.4 


41 


3 


SB 


7 


SIPI 


1,4 


44 


3 


»4 


7 


OCT 


1.4 


47 


3 


184 


1 


NOV 


1.4 


58 


3 


112 


7 


DEC 


1.4 


53 


3 


128 


7 



TOTAL RECORD LENGTH: 
July '66 



54 



127 
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OS9 



0S9 was much in evidence at Spring 
COMDEX '86 held in Atlanta, April 28- 
31, '86. First at a formal news conference 
where several important new OS9 
developments were announced between 
Microwarc and new applications vendors. 

One of the major vendors of new OS9 
products is MicroTRENDS, Inc. 
MicroTRENDS introduced several new 
and significant products for OS9. 

The most signilicant, in our view, was 
the demonstration of OS9 running, full 
bore, on the Atari 68000 systems, both 
the ST-520 and STI040, at the Atari 
booth. Two terminals were assigned to 
the system (an ST-1040) and several 
popular OS9 software packages were 
demonstrated, including DynaCalc. I was 
surprised lo sac that the port was done so 
well. The main monitor was the Atari 
RGB color monitor, with different color 
backgrounds the resolution was veiy 
impressive! The second monilor was a 
Wyse-50 mono CRT tciminal. the 
resolution was equally good. 

The port of OS9 to the Atari was done by 
TLM SYSrEMS. TLM aie the same 
folks who developed the 68000-OS9 for 
the IBM PC. Their experience with 
porting OS9 seems to have paid off in 
what appeais lo be a real winner. OS9 
for the Atari will sell for $295.00 and 
includes BASIC09, according to the 
informal on we received. We will have an 
indepth review of OS9 on the Atari ST- 
1040 in an upcoming issue of 68 Micro 
Journal. 

Another new product lo the OS9 
community, but a well known product in 
other circles, was VOLKSWRITER 
Deluxe. This is a popular word and text 
processor and formatter. It is veiy 
complete in it's range of functions arjd 
includes drivers for most all popular 
printers, including Que proportional 
spacing. Also it is compatible with the 
popular 1-2-3, SupeiCalc and other data 
base and spread sheet programs. Many of 
which will be made available for this OS9 
system. Price was quoted at $199.00. 

KnowledgeSet announced their KRS for 
CD-ROM available for the OS9 operating 
system. Included is the complete "Grolicr 
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Electronic Encyclopedia". OS9 which is 
the official system for the new PfiiUips- 
Sony CD-I supports such products. The 
fiist KRS is for the "Jonathan" 68000- 
OS9 card system for the Apple ||. The 
KRS is a complete search and retrieval 
application designed specifically for CD 
storage devices. 

Also demonstrated at the MicroTRENDS 
booth was an image capture and display 
system. This video system was veiy 
impressive in the resolution of it's digital 
video reproduclion. Named 'The 
ColoiCatcher" it certainly does that and 
more. Essentially it captures a real-time 
image from an NTSC video source then 
internally compresses it fiom an 
approximate I Mbyte RAM area to about 
20K. 

Capture rate arid compression is 
approximately 3 seconds and display is 1 
second. This includes (he RAM replay 
expansion. Inputs and outputs arc 
standard NTSC RS-170A. Pixels in 
graphics mode are 768 horz. by 488 
vertical, 256 grey levels, 16 million color 
scales. 

These, and other new products for OS9 arc 
to be reviewed indepth in the near future. 
Due to time constraints, this preliminary 
report is to let you know what is coming. 
And of course let you in on the new and 
exciting OS9 goodies we saw at Spring 
Comdex '86. OS9 has certainly 
become an Industry standard. Who 
knows what is next from 
Microware...well, actually I do, 1 
think...bul some of it has lo wail. 1 can 
tell you this however, they are fast 
becoming a real force in the computer 
world. We are proud of our association 
with them,, from day one! 

Bl the way. This is the first output fiom 
our new Apple LaserWriter. Using 

STYLO. Yep, thats right, that STYLO, 
and we have STYLO running on a 68000 
Apple Mac 512K (which is for sale at a 
good price - call if interested). As we get 
our porting straightened out, more and 
more will be done on this system. We 
still are slicking to our original promise - 
lo publish 68 Micro Journal with "OUR" 
computer driven systems. This is just 
another step forward. 

Just lliought you might like lo know. 



something new 

As you might have noticed, we 
are looking better. I have tried over 
(he past 8 plus years to keep 68 
Micro Journal a magazine that you 
could relate to.. .We must be doing 
something right, as we are now (he 
third oldest computer magazine still 
going! In all there has been over 
500 computer magazines, in the 
past 10 years or so. Of all those, 
large and small, we survive! I 
think it is because we have listened 
to you and keep pace with our mark- 
et . So we will in the future, leav- 
ing no one of you behind, or for- 
gotten. 

We could have been fully type- 
set fiom day one, but I wanted to 
do it with our own type computers, 
we did. 

Now we have a Mac™ and the 
new LaserWriter™, not the top of 
the line typesetting, but suf- 
ficient for our purposes. Also it is 
driven by 'our' type CPU. So I 
feel we have kept the failh. 

Especially as we are using a spec- 
ial software package to drive it, 
fiom our old friends Great Plains. 
Their new STYLO FORMATIER 
for the Mac. Also it will drive our 
100 grand typesetter, if we have the 
need. How "bout that? 

Will keep you posted as we 
piogess. And if you now send in 
your articles in STYLO format, 
they will look better! Most already 
are, but I just wanted you to be 
awaie. 

We are also using a very nice 
package called PageMaker. As 
many of you require professional 
looking typeset manuals, catalogs, 
forms, etc. we can help with some 
experienced advice. Give me a call. 
We have tried about all the 'Desk- 
top Publishing' softwate packages 
and 1 can sure save you some hard 
times and lots of bucks. 

I am asking you to let me know 
what you think about our new 
format. Do you want it in 2 or 3 
column format?. Or shall we mix it 
up? Also what type style do you 
find best for: 1. text materials and 
2. source listings. 

Thanks, and let me know. After 
all, we do listen. And please don't 
gripe, if you didn't respond. 
DMW 
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OS-9 User Notes 



The Ben of Timet 



By: Pcicr Dibble 
19 Fountain Street 
Rochester, NY 14620 



No question about it, these are great days to be involved with 
OS-9/6BKI CD-I looks like it's getting an excellent reception. The 
PC types (like Microsoft) seem worried: perhaps even they see OS-9 
coming out of obscurity. The OS-9 poil to the Atari ST has been 
announced for availability in June. Brian Lantz, President of the 
OS-9 Users Croup, has tried it and pronounced it good (he said it 
more strongly than that). Pons to the Amiga and even the 
Macintosh are in the works and due out in the fall. Maybe the flood 
of news about OS-9 caught Byte's attention In May, Byte held a 
conference on OS-9/6BK on BIX, their teleconferencing system. 

My new computer is still making me happy. I have good/bad news 
from Cimix. The good news is that they are enhancing the 
Micro-20, (Muslang-020™ as well?) with some interesting boards 
for the I/O connector. The bad news is that the graphics board is 
wailing for a new chip set from Hitachi. It won't be available this 
summer. 

The I/O boards from Cimix are an inteiface to the Motorola I/O 
channel, and two different networking interfaces. The I/O channel is 
the high-spcad I/O bus that Motorola uses with the VME bus. It is 
widely supported, so this will give Micro-20 users many sources for 
I/O cards. 

Ed J Nolt: Stt articlt July '86 68 Micro Journal 

One networking inteiface for the Micro-20 is relatively (low (I 
don't remember the number), and will use one of the four ports on 
the serial attachment. The other networking interface is Arcncl, 
which is a widely-used networking standard developed by Datapoim. 
I ne important feature of the Arcnet interface is speed — hard disk 
speed. A network of Micro-20s (Muslang-20s) using either of these 
interfaces will be something special. If someone comes up with 
either a faster or a less expensive board to hook into the network it 
will be even more exciting. 

The family of OS-9/68K ports to popular machines is the work of 
TLM. They have had a 68000 board with OS-9 on the market for the 
IBM PC for a while now. I guess they liked that so well that they 
decided to get deeply involved with OS-9. In any case the Ataii ST 
should be a tine low-end OS-9 machine. The special features of the 
machine aren't supported ... yet. I understand thai support for the 
graphics, and sound hardware are in the works, and theie's already 
suppoit for hard disks. 

Volkswriter Deluxe is coming for OS-9/68K. I haven't been able to 
rind out whether it will only be for the Atari or will be available for 
all of us. Let's hope. 

I've been working on convening public domain Unix programs for 
my system. It's easy. The biggest project is a conversion of Hack. 
Hack is an elaborate interactive game, and a very large program. I 
think it will come to about 256K including program and data. 



I found out that the linker can't deal with a program this big. The 
problem is that the process descriptor has slots for pointers to only 
32 blocks of allocated memory. The linker is written in C. When a 
C program mallocs memory it gets it from the syttem with the ebrk 
function from the C library. Ebrk in turn uses FSSrqMem to get 
4096-byles of memory from the system. It can do this 32 times 
before the process descriptor runs out of slots; that's enough for 
128K. I was a little surprised when my two megabyte system nut 
out of memory. 

It turns out that I had to increase the size of the blocks of memoty 

that the linker, 168, requests. The variable that needs changing is 

memmins. You can read about it in the description of the ebrk 

function in the C manual. 

There is a fix for this problem. Microware doesn't distribute the 
source for 168, so we can't just go in and assign a new value to 
_memmins, but we can use the debugger. The value of _memmins is 
at an offset of 61SA from the start of the module. It is set to 0000 
1000. I reset it to 0000 2000. The sequence of commands goes 
something like this: 

d«bu« 

1 its 

c .r7»6l3«»2 

10 20 

00 . 

iivi 168 ■ 
Flxftod 168 -u 

It might be good to increase the default slack size for 168 too while 
you're in there. I had trouble with the linker's slack oveiflowing. 
It's usually easy to deal with slack overflows; you just request more 
memory on the command line, but I couldn't find any way to 
increase Ihe memory allocation of the linker without calling it 
explicitly. It is usually called by cc with plenty of stuff on Ihe 
command lino. I didn't want to wony about all thai "stuff" ao I just 
doubled its default allocation with debug and had no more trouble. 

When Ihe next release of C comes out there should be a 
command-line option for setting Ihe minimum allocation. Until 
then consider Ihe problem (and the fix) documented. 

I chose the latest version of Hack to convert. It bat many features, 
and, I believe, it's somewhat buggy. But if I get it converted it will 
please my wife mightily. 

I did some smaller programs first. Ihe most useful of Ihe batch I 
ported was Micro-Emacs. It's a nice, emacs-like, editor. I'm using it 
to write this column. As public domain programs go it ia excellent. 
It isn't pcifecl, for example, Ihe woid wrap mode deletes punctuation 
if it falls at Ihe end of a line. Il won't take me long to fix that 
problem and the few dozen others I've found, then Til have an editor 
at least at good at any I've teen sold for OS-9. 
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I'm working up lo TeX. TeX it a lexl formalling program by Knulh. 
Il it probably Ibe belt lexl fonnaliing program available Tor people 
who are willing lo invetl tome effort in their document!. Il it big 
and complicated, but Ihey say that il it easily portable. We'll lee. 



I/O device performance alio varies considerably. Therefore, ibe 
I/O related system calls were measured using RAM based devices, 
specifically, virtual disk for file I/O and pipes for sequential I/O. 
Timings include execution lime of Ibe device drver routine*. 



I picked up some interesting facts from the BIX conference. One 
thai makes me particularly happy is that the Atari OS-9 and 
languages may be reasonably priced. Not down to tbe CoCo level, 
and not Milled yel, but il seems Ihey want lo be reasonable. TLM is 
using a no o- standard disk formal for the Atari. Do you suppose they 
are Hying lo prevent us from buying cut-rale Atari OS-9 software 
and using il on our systems? 

The moderator of the conference. Jim Omurs, posted a list of timings 
for OS-9/68k SVCs. They were measured by Microware. I don'l 
think Ihey are for the latest version of OS-9. but they are useful 
numbers. The column from here on is quoted from BDC which was 
quoting Microware's literature. 

The following information has been provided by Microware: 



Software Considerations: 

The exact execution lime of OS-9 system calls can vaiy 
considerably due lo several factors. These include the specific 
parameters passed lo Ibe system call, the status of system resources, 
and the device performance (for I/O functions). The timings shown 
are for system calls with typical parameters: actual timings may 
vaiy considerably. 

System clock lick interrupts occur randomly with respect lo 
system calls. This would add a random vaiiance lo some liming 
measurements. Therefore, the clock was not enabled during the 
liming measurraenu. The clock overhead is geneislly less than one 
percent of the syitem throughout, depending on ihe exact clock 
hardware and speed. 



System liming calls can be critical for real-lime control 
situations. Ihis table provides ihe lime required lo execute Ihe 
most commonly used system calls for a 6800X1 processor based 
computer. 



No** Function 

(•xicution Mm* In Microsecond* I 

Task fto.no**n**nt Svtt#n Call* 

Fork Crooto PfOCtll 

S*nd S*nd Slonal 

Malt Uait for process to t*roun*to 

Sloop SuiPtnd proco** for tot tlMo 

SPrlor Chanoo proc*** priority 

Tim* Rood tl*o or dov with ticks 

10 Rood procon ID 

Htoeff rlonoionont SY*t**> Co.ll* 

Mob ftoouoot U»*r H»»py 

Sftorto* Roouoet Svoton rtoMorv 

Link Link to a ioa rr oodult 

Unload Roloaio ■IMrv Modulo 

DotHod Crooto dot* Modulo 

CpyMom Copy imootv (I ©Yte) 

CPYflom Copy nfrorv 14K bvtes) 

Fill I/O Svi t*M Calls 

Oooto Crooto o now fll* 

Opon Opoa OKlotlno fll* 

Clooo Clooo fllo 

Ooloto Ooloto fllo 

Unto Unto blnorv dot* It bYtol 

Urlto Urlto blnorv dots 11024 bYtoo) 

S**k Position fllo polntor 

Road Rood blnorv dst« (1024 brill 

WritLn Urlto t*xt tin. (wOoytoil 

RoadLn Rood toxt lino <O0 bvt*»> 

s**w*ntial I/O Svttoa Callt 

Crooto Crooto now plro 

Clo*o Clooo piro 

RoodLn Rood Toxt lino (SO bvtoo) 

UrltLn Urlto toxt lino (80 bvtill 

Internal Function* 



260 



IP MHr 



217 


174 


290 


232 


183 


146 


165 


132 


210 


16 


152 


122 


173 


138 


203 


-.'* 


1 345 


123* 


1679 


1300 


11378 


9102 


170 


136 


4265 


3412 


10 40 


96 72 


7463 


3972 


2038 


1630 


1334 


10678 


1120 


896 


6223 


4978 


247 


198 


40 S 


IHt. 


690 


332 


1 180 


944 


S147 


4118 


2367 


1894 


443 


356 


440 


332 
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Took Switch Cnanoe octlvo task* 

Intorrupt Tlw* to roach lot Inotructlon 

of Intorrupt lervtco routlno 30*17n 40*14n 
I'n' ripriiiiti tho rolllno sequent* nuobir of a 
drlvor on o portlculer voctor. Tor tktafU, th* 
tlo* to icciii th* oorvlco routlno of th* 3rd drlv* 
on a oharod voctor *t 10 "Hi It 40»< 14*31-80 ma. I 

This repoit gives representative timings for critical or 
commonly used OS-9/68000 system functions. Il is intended lo 
provide a general picture of OS-9's outstanding performance and 
capability in real-lime applications. 

Hardware Considerations: 

Il is difficult lo predict in advance the exact performance of 
specific hardware. ... (omitting some commentary] Each memoiy 
wail state per address strobe will increase the basic execution timing 
by approximately 25 percent. 



Testing methodology: 

Timings were obtained using a software-readable hardware counter 
which counts actual CPU cycles. The results shown represent the 
total lime from execution of the system call nap by ihe lest program 
until control returns from OS-9 lo the lest program. The timings Tor 
interrupt services and task switching were not measurable by this 
method so they were computed manually based on the instruction 
execution linings as given in official Motorola data sheets. 
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DYNACALC Spraadahaal 
A Review 



By: Peter Dibble 



I can't think of Die technical merits ol DYNACALC for »ie 68K without 
having lis price leap lo Ihe ftont ol my mind. The pries is absolutely 
absurdl If you pay $600 lor Ihis program yeu will be getting a 
VlslCate-class program tor Symphony prices. 

II Is Irue lhal DYNACALC Is Ihe only competent spreadsheel 
program lor OS.9/58K, but lor $200 more I bouglil a lap compuler 
with Calc-To-Go, Wordstar-To-Go. a communicalion program, and a 
stupid database. Several hardware vendors have bundled 
DYNACALC into similar packages al reasonable prices, bul 
Computer Systems Center evidently Isn't Interested in quantity-one 
sales. We are a small market: vendors need lo charge us high pilees 
lo recover Iheir costs with small volume; I understand lhal. Tliis, 
however, is unreasonable OK, now I've gollen lhal oil my chesl. 
Let's consider Ihe program. 

Overview 

Alt Ihe major spreadsheets come Irom big companies. They were 
written by learns ol programmers. Scoll Schaeferle wrole 
DYNACALC, and Is a real parson, no I a corporation You mlghlmoel 
him al Ihe next Microware Seminar. He clearly lakes pride In his 
product. II works cleanly and lasl, and he has enhanced il 
intelligently over the years. DYNACALC is not elaborate - it's nol In 
the class ol Symphony, or even Lotus 1 2 3aiaB- bul II does almost 
eveiyrhing I've seen a spreadsheet do. and il does it lasl. 

What's last? My Mlcro-20 running al 12.5 MHz does Ihe Byle 
spreadsheel benchmark In aboul 0.43 seconds. Some spreadsheel 
on a PC look more lhan ten seconds. I admit lhal il Isn'l fair lo 
compare a 68020 to an 8088. but I don'l have a 68008 any more. 
DYNACALC tor tve 6808 Is not whal Ihis reviews about, but even on 
a CoCe il runs Ihe benchmark fasler lhan len seconds. 
Spreadsheets are never lasl enough, bul It looks like irs hard lo do 
beller lhan DYNACALC 

The operation of DYNACALC is enough like VisiCalc lhal Ihe 
DYNACALC manual relers Ihe reader lo a Its! ol VisiCalc instruction 
books for eddillonal help, bul DYNACALC ia nol a VisiCalc clone 
(exeept in Ihe sense lhal eveiy spreadsheel program is a copy of 
VisiCalc). 
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The mosl obvious enhancement ol this 68K version of DYNACALC 
over the version I have on my 6809 is the improved screen updating. 
Right behind that Is the much larger limits on spreadsheet size. It I 
had enough memoiy. DYNACALC could handle a spreadsheet that 
was 18278 columns by 9999 rows. 

There are more (unctions lor financial calculations, and greatly 
expanded format definitions. II you spend the lime to set the printer 
description lite up, DYNACALC will format printed spreadsheets 
using bold and underlined characters in appiopriale spots. II was 
easy to have it sel my printer lor 136-characler tries before II slarls 
printing. 

Soma Details 

The DYNACALC manual Is 65 pages long, and il certainly doesn't 
waste words. I can't even skim all DYNACALC's features in a review. 
Cm going to talk about just a few high points, and leave most of them 
out entirely. 

The manual doesn't talk about screen management, but that is a 
major feature of this version of DYNACALC. If your terminal 
supporlls them, DYNACALC will insert and delete characters and 
lines to manage scrolling, it doesn't do this perfectly yet, but the 
improvement over 6809 DYNACALC is very noticeable. One note 
here: If your terminal, like mine, permits you lo set your edit 
boundary, sel il to lines. Otherwise character Insertion and deletion 
will propagate from line to line causing the screen to sort of scroll 
sideways lor character operations that should be isolated to one 
Ine. 

Replication of cells Is central to spreadsheet operation. Replication 
is like copying except that it can relocate addresses in the cells it is 
copying. If you replicate column A into column B. DYNACALC gives 
you the option of changing cet references in the copy lo point to 
data in the copy or leaving them pointing al column A (the original). 
DYNACALC's replicate command is flexible. You can replicate from 
a range Into a range. The ranges can be single cells, or general 
blocks: 

C5 . . . C I O data in a ttlgin 

•O0...2I20 «Jeie ih « r«» 

C3...ZZZO « rather bit Mac* 

I* the iiupc* dee en t f t I I 1he dutlntUon it la u»e<J rertitidlv. 



Data can be moved even more generally lhan it can be replicaled. 
Blocks can be moved (as Ihey can be replicaled). References lo 
moved cells are adjusted automatically. You can also sor: rows or 
columns by a specified key. 

There Is extensive support lor ditlerent display formats. Evidanlly 
much feedback on previous versions was criticism aboul lormattlng 
Irlcks DYNACALC couWn'1 do. There should be much less of that 
criticism now. The formats for each cell may be selected from: 

Ct eft tar 

ODsftgl t 

EEr>f>anc *d (Be 1 d en tcretn ind printer if POl>lt>)r) 

OOaneret I left iUliOfV ■ »*►•!». riefct JWetlfv nv«M't> 

kf«Ml tDeA't dlifUt tha (tntintit 

LLeM juiI I #v 

NCanceU enhanced far*at 

PPretected [cant an ti af the call can t b« chaneed I 

Rftiaht juatlfv 

TTab la tea etei* fer data entrv . Tha (ab *>av wi * I brim 

tha Cur for tt tha ne-t call with tab fera*tl 

uur>n>ratact tcencele pretectal firMti 

tie* (cancel • tab. 

■CtntlnuCA>t Ifilli the catl With a reretltlen* o* * linvU 

character, tie vat Mitrr aver itortni t h» wftele call a* 

rtml 1 1 lone >. 

».*.<J. ftfMtl< 



£c*ft init urn 

BSUnk i # tar a 

ITlTiiei- <ir>ult ( shoej tha *ereMie iniUid ef it* reaul t > 
FFtMed Oecletel (1 te * elacee to tha riaht af tha oicimI. 
•electable! 

OOenerel Ivemlte tleetlne pel nf i 
[ f ntaeer l» eundf viMUy ta inteeer I 

JJu 1 tan data (cenvert • a J v' I an Oe » a to Mnth-d4» — rear * trw t I 
PPIet 

SBcientiMc netetien 
TTr# 1 1 in.* atfuit 
,lneert ctaati 

«Dleal«r a* datlare and cents 
m)i«pi* at percent 
[Put naaative value* in parentheeee 

There Is some Intelligence In the way DYNACALC displays dales. If 
the cell is narrow It uses a formal like 5-5-86, If there tsmore space It 
uses 5-5-1986, wilh still more space il goes lo May 5. 1986. 



I'm not going lo give an exhaustive list ol Ihe functions supported by 
DYNACALC. Tit just pick a lew: 



•wnd Inttrtil. 



• Sin, Co.. T.n, «nd tnv.M.i 

•Avar.. a. R«k. HIa, Cunt. So. <f tha S.u.raa. ... 

6t.nd.rd Davi.tl.n »tl Mrh on ran... o* c.lla 

•Mat >i«iint V.lu., Pra.ant V.lu«. Fy*oro V.lu.. Co.. 

Inltl.l Iftvi.tMrl, and p. ya.nl on . L.an, 

achaaaa. I.daa. and laaaur* .11 I I nd tnlnti in t.blaa 

•Call can t-a via. t» tra.t . .lech af call* .a a tv. 

dia.nai.it.1 irrn, 

•I*. And . and Or aua.ort c.noitien.l ixirbtlta 



Piograms that want lo run on all OS-9 systems need to be able lo 
adapt lo a wide variety of terminals and other displays. DYNACALC 
does this In a way that is relatively hard to configure, but powerful. 11 
woiks better on my ANSI-standard terminal than any other program I 
have bought, but It look me three tries to get It light. 

On Ihe distribution disk is a directory with modules in assembled and 
text form for each of about a dozen terminals. These modules 
contain declarations lor all the constants DYNACALC needs lo drive 
a terminal. If you are lucky enough lo have one of the terminals 
represented In this list (which Is growing), and you can live wilh Ihe 
assignments the module makes lor each command key (<control>E 
to edit. <conlrol>F lo find, and so forth), you can move the correct 
module lo your execution directory and start using the program. It 
none of the Hies meet your requirements, you lind the text file 
closest lo what you wanl and edit il. 

Tha manual doesn't say anything about how to modify a terminal file. 
You have to rely on the excellent comments in Ihe tile. They are 
almost enough. I've spent a tol of lime worrying about driving 
terminals, but I still made mistakes. It was hard to figure oul what I 
had misunderstood when all I had lo go from was characters spread 
all over Ihe screen. Scott Schaefeile did an exceptionally good job 
of using Ihe assembler lo trap errors in Ihe terminal Be, but he 
couldm gel them at). 

Problems 

The 68K version of DYNACALC Is new. but Ihe 6809 version has 
been around for a long time. This program shows lhal heritage, t 
bund one problem with IL maybe two. 

The problem Is with the documentation lor installation The 
distribution disk includes a hetps.de file. II obviously needs to be 
put somewheie. because the help facility won't work without il. I 
tried putting il In /DD/SYS. /DD. /DO/SYS. /DO, /MO/ SYS, /HO. and the 
current rjreclory. Finally I put II in the execution directory, which 
turned out to be Ihe right place. It's nol intuitive to me lo put a help 
file In Ihe execution directory (though It does turn oul lo be a 
module). I've already complained about the lack of documentation 
for the terminal description file. I wish the manual had been a lot 
more explicit about llie whole Installation process. 

I leel discontented with DYNACALC. It's the best spread sheet for 
OS 9. and even the 6809 version Is better lhan anything lor Ihe PC In 
some ways But, It's for all purposes Ihe ONLY spread sheet lor 
OS-9. We cant choose a spread sheet with all Ine bells and whistles 
like Framework or Symphony. It isn't really fair, but I want 
DYNACALC to measure up lo the best in every way. So the tentative 
problem Iwoislhat DYNACALC doesn't beat Ihe competition outside 
our comer. 

Summary 

irs a oil difficult to Install DYNACALC. bul once Irs installed It does 
everything a spreadsheet should and does il fast. If you have 
enough memoiy It win handle vast amounts of dala. 11 fits into Ihe 
OS-9 environment wed. I used it lo crunch numbers for a house 
purchase wilh no trouble: al Ihe financial equations I needed were 
built in. I used H to do some grading for a course I TA'ed for: no 
problem. 

The 6809 version did Ihe calculations for a car lease/purchase 
decision and kepi my family and business budgets In excruciating 
detail. I have learned a lot by sorting budget dala on various fields. 

The 68K version has Inherited and expanded on DYNACALC/6809's 
lealures (and its work). It is jusl a spreadsheet - not a experi 
system for financial analysis, or an Integrated office system - bul 
ifs fast and complete Within lis limits DYNACALC is excellent. 
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QPL 

A Bold Step to Very-High-Level-Language 



This Is Part 3 of a series of articles about the 
QPL prooraiTHni ng language. QPL is available for Flex-9 
systems from Compiler Products Unlimited, Inc. Phone 
(602)991 1657. 

In the first two aifcles In this series, we 
covered the basic language features, and discussed a 
feature new to most of you -- pattern matching. 

In this part we wilt sea how the use of QPL 
shortens the process of designing programs. We will 
also discuss user-written functions, and look at a 
texl-formatting program. 

PROGRAM DESIGN IN QPL 

In wiiting a program, the steps a programmer takes are: 

1. Requirements analysis - what will the program do. 

2. Methods selection - how wiB the program do it. 

3. Coding .test, completion. 

In requirements analysis, we find out what the 
input and output data needs are, and user- selectable 
features. This step is fairly Independent of the 
development language. 

Methods selection consists of taking each 
requirement, and asking "how should I represent this 
data, and how should I manipulate it to get the required 
results?". One way of proceeding Is to select a data 
representation, then 'walk through' a proposed 
processing algorithm. In this method the designer 'acts 
out' the functions of the program, substituting 
processing-in-his-mind tor processing- nthe-cornputer. 

In th is 'acting out' method, the designer uses the 
human abilities of pattern recognition and selection to 
find and extract data relevant to each step of the 
process. Later the pattern recognition and selection 
processes are coded . often in obscure ways. It is here 
that the poweitul pattern processing arid conditional 
assignment functions In QPL can greatly simplify the 
final design stage, and the coding stage. The designer 
can use pattern matching and conditional assignment to 
recognize and extract the data in much the same way as 
when he tiand executed' the program. 

Now, to continue the description of the QPL 
language, we will look at subroutines, or as they are 
known in QPL. 'FUNCTIONS'. 

USING FUNCTIONS 

When do we use functions? They are used for two 
different purposes; to encapsulate a code sequence, and 
to provide a reusable code sequence. 

To use functions, a programmer needs to know these 
things; How to declare the function, how to call it, and 
how to pass arguments. Like the 'C language. QPL 
functions return a value, so this is a forth aspect of 
functions to look at. 



FUNCTION DECLARATION & CALL 

To declare a function which will perform the MOD 
operation (return remainder from division) we would 
write 
FUNCTK3N(MOD,DIVIDEND.DIVISOR). 

This creates a new function which acts like the built-in 
functions in most respects. 1 he new function name is 
'MOD'. II has two formal arguments 'DIVIDEND' and 
'DIVISOR'. When we call the function MOD. we can 
substitute actual program variables for the formal 
arguments. For example, we could do a call like 

INDEX = MOD(ARRAY^SI2E .SELECTOR). 

In this example, the program variables 'ARRAY _StZE' and 
'SE LECTOR' are the 'actual arguments'. Note that in the 
above example, we are using the value returned by the 
function, and assigning it to 'INDEX'. Figure 2 shows 
the code for the MOD function. It illustrates an 
important feature of QPL; that numbers and strings are 
treated as the same 'type'. That is, we may do string 
functions such as concatenation and pattern matching on 
numbers. 

ARGUMENTS: 

Function arguments are not type-declared, so any 
kind of value may be passed in the arguments. In the 
example above, ARRAY_SIZE may be an integer number, 
real number, or a string. We may even pass an array 
into a function ; however the function must know the 
array dimensionality. 

QPL arguments are passed by reference. This means 
that like 'VAR' arguments in Pascal, changing the value 
of a formal argument will change the value of the actual 
argument. To clarify this concept, refer to the 
examples In Figure 1. Figure 1 shows two simple 
examples. The first shows how changing the value of a 
formal argument changes the value of the corresponding 
actual argument or variable which was passed to the 
function. The second example in Figure 1 shows how to 
avoid this effect by copying the argument value to 
another variable inside the function. 

FUNCTION VARIABLES: 

How many times have you been doing program 
development and decided that you needed to be able to 
access a local variable inside a Pascal procedure? So 
you move that variable to the global data declaration 
level and find Its naine conflicts with another one. Now 
you need to make name changes in the procedure. If the 
changed name is used in a nested procedure, the need for 
a simple change can become a lialf-hour project. Several 
compilations later you are ready to try your new code. 
In QPL we shorten this process since all variables are 
global and static. Thai means that all QPL variables 
will have a defined value at all points in execution. 
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PRIVATE VARIABLES 

To gain soma privacy with variable names, use the 
following simple naming policy: In each function, name 
all variables using a compound name which begins with 
the function name. For example. In the MOD function. If 
I need a variable named 'QUOTIENT', name it 
MOD_QUOTIENT. Now we don't have to worry that some 
other piece of code will accidentally write to our 
seml-prlvate variable. The problem of accidental writes 
to variables is most common In languages which restrict 
the length of variable names to something short , like 6 
characters. OPL allows variable names as long as you 
want, and all characters are significant. 

RETURNED VALUES 

User defined functions must end with a return 
statement. The form of the return Is 

REnJRN(SOMETHING) 

The 'SOMETHING' may be a variable value, or NULL 
Whatever is returned, the function Is replaced by the 
value returned. This Is how the function 'MOD', 
discussed above, returns its value. The returned value 
may be assigned to another variable, or not, as desired. 

TEXT-FORMATHNC EXAMPLE PROGRAM 

QPL Is wen suited to programs which manipulate 
text. For an example program, we will look at a text 
formating program, shown In Figure 3. 

This formatter will produce 'ragged right* format 
output. It will read from an input file named 
TEXT.TXr. and will have a fixed output line length of 
55 characters. Unlike some text formatters, the need 
for commands Is minimized by building In more 
intelligence. For example, some text formatters require 
a '.sp' command to create a blank line. This simple 
formatter knows a blank line when it sees It and acts 
accordingly. 

The text formating program consists of a 'main 
loop' and a single function. The function Is called 
only from one place in the main, so it is an 
encapsulation type function. 



which will match any remaining text In the line and copy 
it to BUFO. Now, if we use this pattern In a MATCH 
statement with BUFO, such as MATCH(BUFO.MID^PAT). then 
all these pieces will be extracted from BUFO, and the 
remaining text assigned back to BUFO. This kind of 
multi-part pattern gives QPL programs much power for 
little code. 

The program design calls for the main program to 
read In a line of text to BUFO, and if It Is not a blank 
line, call the formating function "FORMAT. No argument 
is passed, since the FORMAT function has access to BUFO 
directly, as In Basic. The FORMAT function builds up a 
line of words in 'OUT and when addition of another word 
would overflow the length limit, the line Is printed 
out. When the Input line In BUFO Is exhausted, FORMAT 
returns to the caller (the main program). I he main 
program deteimines If It has read in a blank line, and 
if so, prints out the remaining text In OUT. 

Figure 4 shows a sample input text and the 
formatted output text. If we wanted to get 
right-justified text, we would have the FORMAT function 
call another function 'JUSTIFY' rather than printing out 
the line. 

This simple formatting program is not a commercial 
grade text processor; however it may be expanded easily 
with a command recognizer and right-justification 
capabilities. Excluding comments and blank lines, this 
text formatter has only 39 lines of code. 



FIGURE 1 Use of pass-by-reference in functions. 

' MAIN PROGRAM TO DEMONSTRATE THE USE OF ARGUMENT 
" PASS-BY.REFERENCE AND VALUE RETURNED 

COUNT = 12 

* In the following call to the function INC, 

* the value of the argument (COUNT) will be 

* changed by the call-by-reference feature and 
' the fact that the function INC assigns a value 

* to its formal argument (NUMBER). 

INC(COUNT) 

* Count now has a value of 13. 



Referring to the program in Figure 3, you see that 
the first step Is to develop the pattern s needed . In 
this case, we have three patterns for extracting words 
from sentences. The first word -extraction pattern is 
FIRST_PAT, which extracts the first word in a line. The 
second Is MID_PAT, which extracts words which are not 
the first or last word. The last is LAST_ PAT, which 
extracts the last word in a line, and allows the 
program to recognize that the text line has been 
consumed. In addition, we need a pattern which will 
recognize the case where a line consists of a single 
word. All these patterns search for a space In one way 
or another, since spaces delimit words. 

Let's look at the pattern 'MID_PAT\ in some 
detail. This is a somewhat complicated pattern, which 
does a lot for us. The first part of MID_PAT has a 
spedal pattern SPANf" *), which scans over any spaces 
before a word, and this Is followed by conditional 
assignment to 'SPACE'. That means that if there are any 
spaces before the word, SPACE will contain Ihem after a 
MATCH is performed. Next, Is a concatenated BREAKf ") 
pattern which will continue the scan until the next 
space Is found. This Is followed by conditional 
assignment to WORD, so the word found will be copied to 
WORD. LasL there is another special pattern LEN(1 500) 



* Next, we will call the function 'INCR' which 

* does not change the value of the actual argument. 
' because no assignment Is made to the formal 

* argument in the function 'INCR' 

COUNT = INCR(COUNT) 
' COUNT now has the value of 14 

•END OF MAIN PROGRAM AND BRANCH TO END OF LISTING 
•(END) 



FUNCTION'INC, NUMBER) 
' Action: Increments a number by changing 
the value of the argument passed In. 

NUMBER . NUMBER + 1 
RETURN(NULL) 



FUNCTtON(INCR.NUMBER) 
' Action: Returns a value which Is 1 higher 
than the value passed in. 

INCR NUM. NUMBER +1 
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HE"nJHN(INCR_NUM) 
END 

FIGURE 2 MOO FUNCTION 

FUNCTKON(MOD.DIVIDEND.DIVISOR) 
•Action; Returns remainder of DIVIDEND /DIVISOR. 
' Does not change values of either 

* actual argument. 

' First we create a pattern which will determine 
' If the result of the division contains a decimal 
' point, and M so, will copy the Integer part 

* to the variable MOD.QUO. 
MOD_PAT . BREAK(".-) . MOD_QUO 

* Next, we Initialize the remainder to 0, 

* and do the division. 

REMAIN . 

MOD_OUO . DIVIDEND / DIVISOR 

' Now. we determine If the division resulted 

* In no fractional part. If there was no 

* fraction, then return 0. 

MATCH(MOD_QUO,MOD_PAT) f(MOD_END) 

' We know that thera was a fractional result, 
' so compute the remainder and return it. 

REMAIN - DIVIDEND - (MO0_QUO • DIVISOR) 
MOD_END RETURN(REMAIN) 



' length Is less than WIDTH. When word would make output string 

* too long, print output string. When Input string Is empty, return. 
FORM_LOOP 

IDENT(BUFO.NULL) :S(F_END) 

' IF line contains no space, then WORD = LINE 

MATCH(BUFO.MULTI_PAT) :S(FL5) 

WORD.BUFO 

BUFO - NULL :(GOT_WORD) 

FL5 

* IF 1st char a space, then use FIRST_PAT to get 1 st word. 
MATCH(BUFO,'T :S(FL6) 
MATCH(BUFO.FIRST_PAT) ;(GOTJ«ORD) 

FL6 

* The text Is either 'space-word-end', or 'space-word-space.. .' 

* IF word_pat succeeds, text Is 'space-word-space....' 
MATCH(BUFO,MID_PAT) :S(GOT_WORD) 

' ELSE text Is 'space-word-end'. 
MATCH(BUF0.1AST_PA1) 
GW2 BUFO. NULL 

GOTJNORD CHR_CNT . SIZE(OUT) + SIZE(WORD) 

* If the added word would overflow the line, THEN 
GE(CHR_CNT.WIDTH) :F(FL4) 

* stick word back on input string. 
BUFO . WORD & BUFO 

* Print out output string 
OUTPUT -OUT 

■ Clear output string 4 goto FORMJ.OOP 
OUT . NULL :(FORM_LOOP) 

* ELSE (added word would not overflow output string) 
' append word to output string 4 goto FORM_LOOP 
FL4 IDENT(OUT.NULL) :S(FL3) 

OUT - OUT & SPACE & WORD :(FORM_LOOP) 

FL3 OU T . WORD ^FORM_LOOP) 

F_END SPACE-"" 
REOIRN(NULL) 

FILE END 



FIGURE 3 
Text formatting program. 



FIGURE 4 Text Input & output. 
Text file to be formatted 



* Create the word-parsing patterns. 

FIRSrPAT . BREAKf ") . WORD A LENO500) . BUR) 

MIDPAT - SPAN(" ") . SPACE A BREAKf' ") . WORD & 
I£N(1500) . BUFO 

LASrPAT - SPANf ") . SPACE ft. LEN(IOO) . WORD | 
I£N(100) .WORD 

MUL1I_PAT - SPUT(" ") 

* 'Hard code' the line width & file name. 
WIDTH - 55 
OPEN(I.TEXr.TXV.GET.SEOUENTIAL) 

READJ.OOP STAT - READ(TEXT.TXT,BUFO) 
' If the line just read In Is not Wank. THEN format it. 

IDENT(BUFO.NULL) :S(IN1) 

FORMAT(NULL) :(CK_DONE) 

* ELSE IF OUT Is not null, print it out and print out a blank line. 
'Also, dear OUT. 

IN1 IDENT(OUT.NULL) :S(IN2) 

OUTPUT -OUT 
OUT -NULL 

* ELSE print cut only a blank line. 
IN2 OUTPUT - NULL 

CK DONE EQ(STAT,6) :S(FILE_END)F(READ_LOOP) 



FUNCTON(FORMAT,NULL) 

* Repeatedly split off single words from Input string, 

* appending them to output string 'OUT' as long as output string 



This is a text file to test the text formatter named FORM. 

)t must woik on simple text. 

It has a fixed formatting line length of 55 characters. 

FORM only does 'ragged right' formatting; however It would be simple 

to edd a function which would add spaces to right-justify Vie text. 

We will see how this simple formatter works. 



Formatter output 



This Is a text file to test the text formatter named 
FORM. 

It must work on simple text. It has a fixed formatting 
line length of 55 characters. FORM only does 'ragged 
right' formatting; however It would be simple to add a 
function which would add spaces to right -justify the 
text. 

We will see how this simple formatter works. 
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K-BASIC 

K-HASIC under OS-9 and FLEX will compile 
TSC BASIC, XBASIC and XPC Source Code Files. 



Tolox 5106006630 



615)842-4600 M 

S900 Caisartdra Srmlh Ad 

Minion, TN 37343 



lor tAto<m«tioA 
ClH til** i4> «60\ 



CoCo OS-9" PtUH" 

SOFTWARE 



K-BASIC now makes the multitude of TSC XBASIC Software 
available for use under OS-9. Transfer your favorite BASIC 
Programs to OS-9, compile them, Assemble them, and BINGO 
- useable, multi-precision, familiar Software is running under 
favorite Operating System! 



!!! SPECIAL 



$99.00 !!! 
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SYSTEM (NDFPt NDfNCE 
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DATA DKTTIONARV INDEXING TECHNIQU*. 

F* h Hf Hi*.- Kjv* i *** <■ <nuM wtwfii Sttaj*w nuuMam a \\ ^ar ntri t * 
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tiaWannai T*M MM niM htf >***** nxM **> en nCfwr Hi 

INPUT DATA VALIDATION 



HI LAMr^AJ . 41 HA Inks 



'E9* 



Ir***]**.! 



DATA FIJI STRUCTURE 

! P*b*d PLinl hrfKBtir-ttwila 

Motmv * ""I "* V *•*" * uwancv unM 
rtim Hi if nj at •naruat i Lav rh.mr»T* 



AWTWMET1C CfWWTORS 



SPECIAL (TAR IW.S 

DMi. 
c , t. . « 



taring mA ma nrmi ap * ■ 

l '■ i \m ii a i i r afca a * - . T i ■ I « j 



Sculptor 



fe-r**V«fa« 



Patamrfcrr [laaarkui t. , n 



MAXIMA AND MINIMA 



APPLICATION PORT ABI ITY 

t ViKii+ri 



Facts 



Features 



I H^arruaHr 

I Ow * Hr r^i 



V 



mam nm #■*•*»■ *u ti 



1 1 i-Ilti r^-k *t 



HndubUTiMlrti a 



htafc 



SPEED AND LfflOtNCY 

ScbAplor uwt a Mul and p*Mn a-feMnt ik-hnaaaf wh 

g*pW*ja*aJjaiaj>ajaa;q<*a>it ij || i i | |ip<at fau agflJ 

Siutori H n* I ' il' H iBaj p i ■ i fin ili f n ■ 



1NTEKNATTONAU.V ACCEPTED 

ftir IrtBTq a itm(* r <"***» P**"f» iM\\ Vu*».*[anprrarrm 
r1.ifTri^rk-iii^rtw'UiY4*ja»Pk|1iirriuM1Fu(E^ir» 8 hft ) «a* f>p*. 

nywhirw hi *w *f»t f Autfi*Lj»H rh* ^rwivat ami I urritar 



.• MM '■' l 
% uJplr. n.i 




«da^i ]fe 

madbnft> ty7*»7h 
tfkhaattaiun] l/Tt.? 

H'*hta , Mf Ihnd 



«TRttNlOHMIAN(UIA*i{. 



PROGRAMS 

CMav rwrad Iturnil 



. P\ n a* rf J wrt+w It n Input ilknim ami 



C'n*i*« 



R*pta* HiptJI 



I ariMW H l al a> fav^naaj aaj 

..sasassr* 



Sculptor for 68020 
OS-9 & UniFLEX 

$995 



MS DOS 




OS-9/LniFLEX 






--$595 / $115 


IBM PC Zenix 


- $995 / $175 


PC DOS 


** ** 


MS DOS Network 


* «« 



* Full Developement Package 
** Run Time Only 

AvtilibUKy l •«•«>•- 

F . FLEX. CCF . CoKx CompolM FLEX 

O -OS 9. CCO = Color Com put* OS 9 

U.UraFtEX 

CCO • Cotor CompulK Oak 

CCT • Colw CompiMi Tap* 

' OS-9 a a Tradamarh ol Momma and Msiaiote 
■FLEX ■aTradamani ol Tachrecal Syuams Cont Jianu 



68000 UniFLFX 

Altos Zenix - $1595 / $265 

UNIX * ** 

Full OEM & Dealer Discounts Available! 
Sculptor is a Trademark of Microprocessor Developments Ltd. 
!!! Please Specify Your Operating System & Disk Size !!! 



% % 



...» ftMt Muu 

l» no C »•»•"<!.• S»i.ir) Bd CoC« o»«n.i* 

SOFTVARB 



-.00C»»*andi 
V> h..»OX. IN 3JS43 
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" Shipping " 

Add2%USA 

(min. $2 50) 

Add S% Surface Foreign 

10% Air Foreign 
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842-4600 yft 

5900 Cassandra Smith Hd 
Huson, TN 37343 

(Of inlormanon 

ciii (am t«2-<tei 
COCO OS-»" PLII' 

SOrTUIARC 



ASSEMBLERS 



ASTRUK09 rrom Southeast Media - A "Structured Assembler Tor the 6809" which 
requires the TSC Macro Assembler. 

F. CCF - $99.95 



UTILITIES 

Dasie09 XRcf from Southeast Media •• This Bssic09 Cross Reference Utility it a Qssic09 
Program whid twill produce a "pnxty piuted" listiig with each line nurrcxrel, followed 
by a complete cross referenced listing of all vatiables, externa! procedures, and line 
numbers called. Also includes a Program Ufl Utility whicll outputs a fast "ptetty printed" 
listing with hoe ourribe/x. Requires Dasic09 or RunQ. 

O & CCO eft), only - $39.95; w/ Swore - $79.95 

Loddala PASCAL UTILITIES (Rojui re. LUC1DAT A Pascal vet 3) 
XREF - produce a Cross Reference Listing of any test; oriented lo Pascall Source, 
INCLUDE - Include other Files in a Source Test, including Binary; unlimited nesting 

capabilities. 
PROFILER - provides an Indented, Numbered, "SlruOogram* of a Pascal Sourae Teal 
File; view the overall structure of large programs, ptogram lolegiily. etc Supplied in 
Pascal Source Code; requires compilation 

F, CCF — EACH Utility - $" - $40.00, 6' $50.00 

DUD from Southeast Media -- A UniFLEX "basic" De-Compiler. Re-Create a Source 
Lilting horn UniFLEX Compiled basic Programs. Works w/ AU. Versions or 6309 
UniFLEX basic 

U. $719 95 



Macro AsjemNo for TSC -- 1 he 1-LEX STANDA RD Assembler. 

Special- CCP $35.00; F $50.00 

t)SM Extended 6809 Micto Assembler rrom Lloyd I/O. - Provides local labels, Motorola 
S.recorda, and Intel Ilex records; XREF OeneraeOS.9 Memory modules under FIJ-X. 

HEX. CCF, OS-9 $99.00 

Relocating Assembl er w/Linking Loader rrom TSC. - Use with many of Ihc C and Faecal 
Compilers 

F.CCF $15000 

MACE, by Oialiam Troo from Wind rush Micro Systems - Co Resident Editor and 
Assembler; fast interactive A-I_ Progranrmin g fo r small to rneiti urn -si zed Prog rarns. 

F.CCP . $75.00 
XM ACE -- MACE w/ Croa Assembler for 6800V 1/2/3/8 

F.CCF - $98 00 



IUUE CROSS ASSEMBLERS horn Computer Systems Consul lints -- (REAL 
ASSEMBI ERS, NOT MACRO SEFS) SPECIFY FOR 180X, 6502. 6800, 6801.6804, 
6805, 6809.Z8, Z80, 80S8/5I/85. 68000. modular, rree sue ding cross assembler in "C, 
with LOAD/UNLOAD uiil'ties and more. Aaonbl er and Lining fonruax same as Largnt 
CPU's format. Produces machine independent Motorola S-Texl also. 

FLEX, CCF, OS-9. Uoi FLEX «a»oribl ers each S50.O0 

any 3 objects or source (not 68XXX)- $100.00 

Set of AU. object $200.00 source $300.00 

UniFLEX 68000 S 5 0.00- source $1,000.00 

XASM Cross Assemblers for FLEX rrom Compusense Ltd. -. Thii tctof 6800/1(2/3/5/8, 
6301 , 6502, 8080*5, aod Z80 Cross Asaunbl era uses the ransliar TSC Macro Assembler 
Command Line and Source Code formal, Aasembler options, etc., in providing code Tor 
the target CPUs. 

Complete set, FLEX only - $1 50.00 

CRASMB ftom Uoyd I/O - 8 Oil Macro Ctoss Assembler with tame realures as OSM; 
cross-assemble lo 6800/ 1/2 IVAISISI9IU. 6502, 1802, 8048 Sen, 80785, Z-8, Z-80,. IMS- 
7000 sen. Supports Ihc large! drip's standard mcemooics and addressing modes. 

FLEX. CCP, OS.9 Pull package- $399.00 



FULL SCREEN FORMS DISPLAY from Computer Systems Consultants - TSC 
Extcsded 0AS1C program supports any Serial Terminal with Cursor Control or Memory- 
Mapped Video Displays; substantially extends the capabilities or the Program Oesignei 
by providing a table-diiveu method or describing and using Full Screes Displays. 

F and CCF, U - $25.00, w/ Source - $50 00 

SOLVE rrom Southeast Media - OS-9 Levels 1 and II only. A Symbolic Object/Logic 
Verification & Examine debugger. Including inline debugging, disassemble and 
assemble. SOLVE IS THE MOST COrvTLFrE DEBUGGER we have seeo for the 6809 
OS-9 series! SOLVE does it all) With a rich selection of monitor, assembler, 
disassembler, environmental, execution and other miscellaneous commands. SOLVE is 
lite MOST POWERFUL tool-kit item you out own! Yd, SOLVE it simple louse! With 
eomplete documentation, asnap! Everyone who has ordered this parage has raved ! See 
review - 68 Micro Journal ■ Oecerober 198S. No 'blind' debugging here, Full screen 
displays, rich and complete ininformaeen presented. Since review in 68 Micro Journal, 
this is our rosiest mover! 

Levels I & D only - OS-9 Regular $149.95 
• SPECIAL CvTRODlJCTION OFFER • $69.95 



DISK UTILITIES 

OS-9 VDisk horn Southeast Media - For Level I only- Use the Extended Memory 
capability or your SWTPC or Oiroii CPU card (or similar formal DAT) for FAST 
Program Compiles, CMD execu ion, high speed interprocess cornmun icationx (without 
pipe buffers), etc - SAVE Dial System Memory. Virtue:! Disk site is variable in 4K 
increments up to 960K. Some Assembly Required 

- Level I ONLY - OS 9 obj. only ■ $79.95, w/ Source - $149.95 

O-P rrom Southeast Media - Written infJASSC09 (with Source), includes: REFORMAT, a 
D A SIC09 Program that refonnau a eboaen amount of an OS-9 disk lo FLEX Format so it 
can be used normally by FLEX; and FLEX, a B AS1C09 Program that does the actual read 
or write function to the special OP Transfer Disk; user-friendly menu drives. Read the 
FIJIX Directory, Delete FLEX Files, Copy both directions, etc. F1£X use n use the 
special disk just like any other REX disk. 

OS-9 - $79.95 



CRASMB 16.32 from Uoyd I/O - Cross Assembler for the 68000. 

FLEX. CCP, OS-9 $249 00 



1 SORT rrom Sotiitieast Media . A SORT/MEROE pac large for OS 9 (Level I A U only). 
Soils records with fixed lengths or vsiiable lengths. Allows for either ascending or 
descending sort. Sorting can be done in either ASCQ sequence or alternate collating 
sequence. Right, Idlor no juslir cation or data fields available LSORT includes a lull 
set or comments and errors messages. 

OS-9 $63.00 



Availability teoends- 

F . FLE X. CCF - Color Co mot* er FIE X 

O -OS-9, CCO : Color Computer OS 9 

U.UrsFUEX 

CCD .Color Computer Disk 

CCT. Color Computer Tap* 

•OS^taaIrarJ<ifnar«o1»*crowaraandMoiO'Ola 

" FLEX ar a Trademark ol TecftnJcal Systems CortfiuAants 



!!! Please Specify Your Operating System & Disk Si/e !!! 



••I* 
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" Shipping *• 
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I DER from Southern Media- HIEK ii s modern Nerarcha) storage system for wen under 
FLEX. It umil (he needs of (hate who hsve hard disk cspahlniiea an ihdr i)A)n, or 
many files cconodisk- soy tile, UiiogMER a regulsr(sny)FLTXdiik (! 5 hard 
disk) can luvt tub director! o>. By Itaii method the problems or assigning unique nam to 
lilts ii kta burdensome. Differen t riles wilh (he exact tamo Dime may be oo the tame 
dut, sslong at [hey arc in different directories. For the w iochexler user thi s becomes a 
mutt. Sub-diretlariea are the modem day solution (hat all current large tyttomt use. 
Eadi duirtcsy look* lo FLEX like a regular file, except (bey have (be extension 'D1R". 
A fullselof dirKlotylisodlingfSirgrairB arc included, making (be qpnatioe of 1 HER 
simple out ttrsighLf orotic). A special install package It included (o metal) iDER to yoitr 
particular version or FLEX. Some assembly required Inaall Ianjcatat sack byte or 
reference change Deeded. Typically - 6 byte changes in source (furnished) and one 
assembly of 1 HER It all thai is required. No pregranvri ng mquired * 

Regular SI 39.95 
• (nVaaxaicB Special • J69.95 

COPYMULT from Southeast Media - Copy LARGE Diakt (o several tmaller disks. 
FLEX utilities allow ihe backup of ANY lite disk lo any SMALLER sue diskettes (Han) 
OiJi (o floppies. »" to 5", etc.) by simply Inserting diikiuet at requested by 
COPYMULT. No fooliog wilh directory deletion, etc- COPYMULT.CMD 
understands normal "copy* tyntas and keepa up with files copied by msinlalniog 
directories forbc* hotland receivisgdurt system. Alio Includes BACKUP.CMD to 
download any tin 'random' type rile; RESTORE.CMD to restructure copied "random' 
files for copying, or rccopying back lo Ihe heat system; and FRET3JNK. CMD as a 
"bonus' utility thai "iclinkt" the free chain of floppy or hard ditk, eliminating 
fngmnasuDS. Completely dozurrcntad Aacnrbl y Language Source fUea included. 

AU. 4 Progmra (FLEX. 8' or 5') $99 .SO 



COPYCAT from Lucidala- Pascal NOT ncasred. Allows rearijog TXT Mini FIX X. SSB 
(XSM. andDigilalRtaearch CF/MDutav^leopentbg under FLEX 1.0, FLEX 2.0, 
or FLEX 9.0 wilh £800 or 6809 Systems. COPYCAT will not perform miracle*, but, 
between the program and the mutual, you ttand a good chance of accomplishing a 
transfer. Alto include* tome Utilities lo lielp out. Programs supplied In Modular Source 
Ccde(Asacira>lyLangiiage)tohdpsolveuniaual problems. 

PandCCFS-- JiOOO Fr.5CS.00 

FLEX DISK imUTTES from Computer System Consultant! - Eight (I) different 
Assembly I-angusgefw/ Souire Code) FLEX Utilities for evecy FLEX Unas Toolbox: 
Copy a File with CRC Errors; Test Disk for errors; Compare two Disks; s fast Disk 
Backup Program; Edit Disk Sectors; Linear! tc Fron-Qialn on the Disk; ptiot Ditk 
Identification; nod Sort and Replace ihe Diak Directory fin toned order) - PLUS- Ten 
XB ASIC Programs Including: A BASIC Reaequencer wilh EXrRAt over "RI2NUM* 
like check for nesting label definitions, proteose Ditk to Disk instead of in Memory, 
etc. Other progtamt Compare, Merge, or Generate Updates between two BASIC 
Programs, check BASIC Sequence Numbers, compain two unsequeeced filet, and S 
Program for ettablithiog a Master Oirnrvary of seven) Diss*, and sorting, selecting, 
updtbog, and ptintiag paginated listings of these files. A BASIC Cross ■ Reference 
Program, written in Assembly Language, which provides an X-Ref Listing of the 
V« iables and Reserved Words in TSC BASIC, XB ASIC, ssd PRECOMPILER BASIC 
Program. 

ALL Utiliues Include Source (eilher BASIC or A.L Source Code), 

FandCCF - JJ0.00 
BASIC Utilities ONLY for UnlFLEX - JJ0.00 
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X-TALX from SoutUaB Media - X-TALK consists of two disks and a special cable, the 
hookup enable* a 6809 SWTPC computer to dump UaiFLEX files directly lo the 
UniFLEX MUS TANG-MO. This is the ONLY currency avtilaMe axatiod to transfer 
SWTPC 6809 UaiFLEX files to 1 68O0O UoiFLEX tysiem Onuix 6809 users may dump 
a 6809 UnlFLEX file lo a 6809 UniFLEX five inch disk and H it readable by Ihe 
MUSTANO02D Tlie cable is specially piopsred with internal eooneeliow lo rostch (he 
noD-ttaodsrd SWTPC SO/9 I/O DbIS «on«tors. A special SWTPC S, cabin set Is ruso 
available. Users should specify which SWTPC system he/tlie withe* to ttojncnuikaia 
with Ihe Ml) ST AN 0. 020. The X-TALK software is furnished oo ovodlsks. One eight 
inch disk casual as S £. Medi t icsalem program C -MODEM (6809) sod the other disk is a 
MUST ANO-020 five inch disk with C-MODEM (68020). Teat and binary Met may be 
diiect ly transferred between (be two system*. The C-MODEM programs tre unaltered 
and perform as excellent modem prograna alto. X-TALK can be purchased with or 
without (he special cables, but ihia special price is available lo registered MU5TANO- 
020 uteri only. 

X-TALK Complete (cable, 2 disss) S99.93 

X-TAIX Software (Zeiss* only) $69.95 

X-TALK with CMODEM Source Include* JM9.9S 

XDATA from SovtUast Media - A COMMUNICATION Package for (he UnlFLEX 
Operatiog System. Use with CP/M, Main Frames, other UaiFLEX Systems, etc. 
VoiliesTTsmnduioo using cbeckjurn or CRC; Re-Tcsosrous bad blocks, etc 

U- 5299.99 



GAMES 



RAPIER 6809 Chess Program frotu Southeast Media Requires FLEX and Displays on 
Any Type TeiminaL Features: Four levels of play. Swap side. Point snoring system 
Two display boards. Change skill level. Solve Chccfcmsu: cuxjJotb lo 1-2-3-4 coowm. 
Make move aad swsp tide*. Play while or bisck. This is ooeoi* the strongest CHESS 
programs wooing oo any micrtunnwier , estimated USCF Rating 1600. (hatter Una 
most 'dub' plsyers si higher levels). 

F and CCP- $79.93 



EDITORS & 
WORD PROCESSING 



COMMUNICATIONS 

CMODEM Telecoovnunicslloss Program from Computer Systems Consultant!, Inc. •• 
Menu-Driven; supports Dumb- Terminal Mode, Upload and Oownload In non-protocol 
mode, and the CP/M "Modem 7" Chrislense o protocol mode to enable comroun icallon 
capabilities for almost any raquircmEdL Written in "C". 

FLEX,CCF,as-9,UoiTLEX; with complete Source- 1100 00 

without Source - JJQ.00 

UniFLEX 68000 with scsnsMcte Source - SI 00.00 



JUST from Southeast Media - Text Formtuer developed by Ron Andenoe,' for Dot Matrix 
Printers , provides many unique festures. Output 'PorasstKsT Teal lo the Oitpury. Use 
the FFRXNT.CMD supplied forcnslucieg multiple copies of the Torsnaned" Text on the 
Printer INCLUDING IMBEDDED PRINTER COMMANDS (very useful at other limes 
alio, and worth the pi Ice of die program by itself). 'User Configurable' for adapting to 
ether Printers (comes set up for Epsoo MX-80 with Oraftrai); up lo ten (10) Imbedded 
"Pllnter Control Cornnaods". Compensates for s "Double WiduY printed line. Include* 
the normal line width, margin, indent, pangnpli, apace, vtstkal skip line*, page length, 
page numberin 8 esataie g, faL jutbriotlon , eve Use with PAT or say other odiioc 

* Now supplied as s two disk set: 

Distal: JUST2 obj file, JU5T2 TXT PIS source FLEX - CC 

DuktJ: JUSTSC object sad soune In C FLEX-OS9.CC 



AvssumWty Iskssnehv 

F - FLE X. CCF - Color Computer FLE X 

O . OS-9 CCO ■ Coax ComputarOS-B 

LI.UxfLEX 

CCO -CotorCompunvthsk 

CCT -Ccsor CompvlerTap* 

■ OS* • a Trttfsrassrk of MosmsM and MUorstl 

- FLEX is «Tr*u*maAot T*ch rtcst Systtots Consuh arts 



!!! Please Specify Your Operating System & Disk Si/.e !!! 
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Tint J1SC and regular JUST C source «• twouqatme programs. JTSC compiles to a 
•rat ion Hut expects TSC Word Processo r type commands, (.pp ■ p Jst etc.) Cwt for 
your older teal file*. 

The C uuiu compiles to > standard syntax JUST.CMD object Tile. Using JUST 
tynunt tpji.yetc.) With ill J1J5T rusctiosa phis sevmladdriiraul Briefer funnaBmg 
ftjncOort. Reference die JUSTSC C mm Forihcec wuiing en excellent BUDGET 
PRICED woid processor, with features none of the often hive. This is ill 

Dili (1) . PL9 FLEX Venlop only . F *. CCP - $40.95 

Di»k Set (I) - F * CCP * OS9 (C reason) • $49.95 

OS.9 6BC Vernon somsulc with Same - $79.95 

PAT from Southeast Modi* - A full feature screen oriented TEXT EDITOR with ill he best 
of'FfE'. l<ortho« who swore by and loved only PIE, (hit li for you! All PIE features 
and much morel Too many features Co lltL And if you dootlike these, change or add 
your own. PL-9 annas rVmiNod. "C source available soon. Eaeuy configured to your 
CRT, with apeosj configsecuoa. 

Regular FLEX $119.50 

• spbcial introduction offer • $79.95 

SPECIAL PAT/JUST COMBO (w/scurce) FLEX $99.95 

OS.9 68K Version $229.00 

SPEC) AL PAT'JUST COMDO 68K Version $249.00 

Note JUST la "C source sviilable for OS-9 

CEDRIC fVom Soihem Medii. A ecraeB oriented TEXT EDITOR with availabili ty of 
'MENU' aid. Macro detiniliona. con! Igurable penjianrnl definable MACROS' - all 
atmdard features end Ibe fastest 'global!' functions in thn weft. A rimple, automatic 
terminal config program makes Ihisa real *oo haiad' product. Only 6X in size, leaving 
the average system over 165 uum for led buffer - appx. 14,000 phn of free memory ! 
Extra fine for uiugjaiiiuu g an areQ el tut. 

Regular $129.95 
• SPECIAL INTRODUCTION OFFER • FLEX $49.95 



BAS-EDir front Sonatas Media- A TSC BASIC or XB ASIC eaten editor. Appealed to 
BASIC or XB ASIC, BAS EDIT ii tnuiputsl to oormal B ASICfXB ASIC operation 
Allowt editing while la BASIC'XBASIC. Support! the following functions: 
OVERLAY. INSERT sod DUF LINE. Make editing BAS1C/XBAS1C program. 
SIMPLE I A GREAT time and effort liver. Pngnrmm love K! NO more retyping 
entires linen, etc Dmpfase with over 25 dUTereat CRT terminal coJigiaarJon overUys. 

FLEX, CCP, STAR-DOS Regular $69.95 
Umilad Special Offer; $39.95 

SCREDiTOR III from Wiadnisb Micro SyaVsim - Powerful Screen-Owned EditarrWonJ 
Pnoscsor. Almoet 50 different commands ; over 300 pagee of Dacumentauoo with 
Tutorial, features Maltl-Corumn display and editing, "decimal align" column (AND 
add them up automatically), multiple keystroke macro*, even/odd pige headers and 
footers, imbedded printer coelrol codes, all ^atifi cat ions, "hntp" support, store coumoa 
coamaad sense ob disk. etc. Use supplied 'set-ups*, or remap (he tnybusrd to your 
except for enr-oTttoiia) pruning. Otis package will DO IT ALL! 

6900 or 6*09 FLEX or SSB DOS. OS-9 - $175.00 



SPELLB "Computer ttaj^iry" from SorslhejBt Media- OVER 150.000 words! Lookup 
a word from within your Editor or Word Pioaonuv (with the SPII.CMD Utility which 
operates in (ho FLEX UCS). Or check and update (he Text s'lerenliy; ADD WORDS to 
the Dictionary, "Flag" questionable words in Die Tut. "View a wore Id context" before 
eheuging or ignoring, etc SPFJJ.B fl»t diecis a XorntlB Word OWldraary* , then the 
normal Odio^ , then a "Personal Worn LisT, sad finally, any 'Special Word List" you 
may hive taecified. SPELLB also allows ihe use of Small Disk Stongn rrystenn. 

I' and CCP .$129.95 

STYLO-GRAPH from Onset Plates Computer Co. - A fullscreen oriented WORD 
PROCESSOR - (uses the 51 x 24 Display Screnia oe CoCo FLEX/STAR DOS. or PBJ 
Wordpak), Full screen display and coiling: supports the Daisy Wheel proportional 
printers. 

CCF asd CCO . $99 95. P or O . $1 79 95. U - $299.95 

STYLO-SPELL from Oreat Plains Computer Co. - Fast Computer Dictionary. 
C m i u k u njils Stylograph. 

CCP snd CCO - $69 95, ForO . $99.95. U -1149.95 

STYLO-MEROE from Great Plains Computes Co. - Merge Mailing List to "Form" 
letters. Print ovliple Piles, etc ..laraigh Stylo. 

CCF and CCO - $59.95. F or O - $79.95. U - $ 129.95 



STYLO-PAK — Otiph . Spell . Merge Pacaxcn Oeal!!l 



F or O- $329 ,»5,U- $549.95 



MISCELLANEOUS 

TABULA RASA SPREADSHEET from Comcuta Systeroi Consultants - TABULA 
RASA Is similar to DESIOTJP>-*i>N;prwidaB use of tabular compuuSo b acfacniei land 
for analysts of taixlacas, sales, and ecoooraic condiilcos. Menu -driven; extensive repoit- 
gcncrelion capabilities. Requires TSCsEsIeoued BASIC. 

FandCCP.U-lSaoO, w/ Source .$100,00 

D YNACALC from Computer Systare Cute - tEkrctnmx Spread Sheet for the M09 and 
68000. 

F, OS-9 and SPBCIAL CCP -$200.00. U- $395.00 
OS 9 68K - $595.00 

FULL SCREEN INVEMTO RY/MRP from Coerputo Syitemi Consultants - Use Ute Full 
Screen Inventoiy Syiiem/MH-riilf Reduunneol Planning for maintaining in vent mice. 
Keeps item field file in alphabetical order for easier inquiry. Locate ueYor prist records 
mstching pallia] or complete (letn^escnpUoo, vendor, or erWiM-a; find heclc-neror 
below stock levels. Print-outs in item or vendor order. MRP capability for Die 
maintenance aod analysts of Hierarchical san-jmhlies of items in the inventory file. 
Requires TSCs Exlcaded BASIC. 

P md CCP. U - $50.00. w/ Sams - $100.00 



l^aj-SCItEENMAILINOUSTfromCompvi-a S yt (ems Cctixutianu -The Full J 
Moiling List System provides amnios of rtunotaiaing simpin mailug lists. Locals ill 
records matching on partial or complete sere, city, state, tip, or attributae for linungs or 
Lahcis.etc. Requi res I'SCs Extended BASIC 

Faod CCF, U - 550.00, w/ Source- $100 00 

DIET-TRAC Forecaster from Southeast Media .. An XB ASIC program that plans, a diet in 
terms of either calories and poecnla go of cnibohydi^ae .proteins and fats (C PO») or 
grams of Carbohydrate. Proton, and Fat food exchanges of each of the six basic food 
groups (vegetable, bread, meal, skim milk, fruit and fit) fori specific individual. Sex, 
Age, Heiglit, Present Weight, Frame Site, Activity I«vel and Basal Metabolic Rate for 
normal individual am Liken into account. Ideal weight and a&suninjeg calories for any 
weight of Die above individual are calculated. Provides number of days and daily 
calendar after weight goal and alone plan is ddenni ocd. 

F- $59,95, U. $89.95 



Aveiebtety 

F ■ FLEX. CCF . Color Computer FLEX 

O - OS^». CCO = Color Co mputw O&B 

U.UrvFlEX 

CCD ■ Color Computer Disk 

CCT .Color Computer Tape 

' OM la a Trnsiamark cV Monn and Kbtorala 
-FLEX a a Tradamark ra Taervwad Syrian™ Crr-uauvai 



Please Specify Your Operating System & Disk Size 



a"«ncii 



ftfttt Mitii 



l mV o0 Ciiunitil 6r*ith Rd 



mto (SlS) «.9-4S0l 



Caen O* •> • „t.<at ' 

■QFTtts/IRE 



" Shipping " 

Add 2% U S A 

(min S2 501 

Add 57, surface Foreign 

10% ' Foreign 
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PROGRAMMING LANGUAGES 



PL/9 from Windrush Micro Systems -- By Ornham Trod. A combination 
Edilor'Compiler/Debugger. Direct souree-lo-object compilation delivering fail, 
compact re-«oiranl,ROM.ablc,PiC 8A I6bii Integers A 6-digil Real mio*e*rDr all 
real-world problems. Direct control over ALL System resources, including interrupts. 
Comprehensive library support; simple Machine Code interfase ; step-by-aiep tracer for 
instant debugging. 500. page Manual with tutorial guide. 

F.CCP- $198.00 

PASC from Southeast Media ■ A F!ex9 Compiler with • defied to Pascal Tlavoi" Anyone 
wiib a bit of Pascal experience ihould be able to begin uaing PASC to good effect in short 
order. The PASC package comes complete with three sample program!: ED (a syntax or 
structure editor), EDfTO R (a simple, public domain, screen editor) and CHESS (a simple 
chess program). The PASC package come complete with source (wiiiten in FASC) and 
docuoKntsUoo. 

FITX $95.00 

WIOMSICALrrom Whimsical Dcvelopmenu- Now supports Real Nurobea. "Structured 
Programming" WTtliOUT losing the Spud and Contra) of AnmnM y language! Singte- 
pass Compiler features unified, user defined I/O; produces ROMablc Code; Procedures 
and Modules (including prc-compiled Modules); men y Types" up to 32 bit Integer i, 6- 
digit Re* Numbers, unlimited sized Arrays (vectors only); Interrupt handling; long 
Variable Names; Vatiable Initialization; Include directive; Conditional compiling; direct 
Code insert! on ; control of the Suck Pointer, etc RunTime subroutines inserted as called 
during compilation. Normally produces 10% leas code thin PL/9. 

F and CCF $195.00 

KANSAS CITY BASIC from Southeast Media - Basic for Color Computer OS 9 with 
many new commuds and sub-functions added. A fall implementation ofthelF-THEN- 
ELSE logic is included, allowing nesting to 255 levels. Strings are supported and a 
subset of the usual string functions such as LEFTS. RIGirr$,MID$,STRlNGS,ue. are 
included Variables am dynamic ally allocated. Atso included are additional features 
such as Peek and Poke. A must for any Color Computer user running OS -9. 

CoCoOS-9 $39.95 

C Compiler from Windnsh Micro Systems by lames McCxh. Fi ill C for FLEX except bit- 
fields, including an Assembler. Requires the TSC Relocating Assembler if user desires 
to t mplemen t h is owe Li brt/iex. 

F and CCF ■ $295.00 

C Compiler Tram lotto) ■- Pull C except Doubles and Bit Field a. streamlined for the 6809, 

Reliable Compiler, FAST, efticienl Code. More I JN1 X Compaubl e than most. 

FLEX CCF. 08-9 (Level fj ONLYJ.U- $575.00 

PASCAL Compiler from 1 Jicidau - ISO Based PCode Compiler. Designed especially for 
MicrocarnputrrSyalenR. Allows Knlcage to Ajoumbler Code for maximum ftenlbibty. 

F and CCF - $99.95 

PASCAL Compiler from OmegaSofl (sow Certified Software) -■ For the 
PROFESSIONAL; ISO Baaed, NativeCode Compiler. Primarily for Real-Time and 
Process Control applications. Powerful; Flexible. Requires a "Motorola Compatible* 
Relo. Asrub. and Linking Loader. 

F and CCF ■ WIS 00 

One Year Maim. -$IOa 00 

OS-9 68K Version - $900.00 

KB ASIC from LLOYD DO - A "Native Code" BASIC Coropiler which is now Pi illy TSC 
XBAStC compatible The compiler compiles to Assembly Language Sourco Cede. A 
NEW. sireamlined, Assembler is now included allowing the assembly of LARGE 
Compiled KB ASIC Programs. Cooditiooal anerobiy reduces Run-tuns package 

PLEX. CCF, OS 9 Compiler with Assembler $199.00 

CRUNCH COBOL from Cssnpuseese Ltd. - Supports large subset of ANSI1 Level 1 
COBOL with many of the useful Level 2 festu res. Pull FLEX File Stnsaum, including 
Random Files and (he ability to process Keyed Hies. Segment sod link large programs at 
runtime, or impWmaned as a sot of overlsys. Tlte System requires 56K and CAN be run 
with a single Disk System. 

PLEX. CCF; Normally $199.00 
Special Introductory Price (while in effect}- $99.95 



(6*5) 



Telex S 106006630 



842-4600 M 

% itfttlft 

5900 Cassandra Smith Rd 
H.sson, TN 37343 



lor inform a Moo 
call tajiS) Sil-saC 



CoCo osvt" mx" 

SOFTUl/ll.. 



FORTH from Slums Ecctroelcs - A CoCo FORTH Prognrnmli g Languag o. Tailored to 
theCcCo! Supplied on Tape, transferable to disk. Wiiiten in FAST MI. MsnyCeCo 
functions (Graphics, Sound, etc.). Includes an Editor, Trace, etc Provides CPU Can y 
Flag accessibility, Fast Task Multiplexing Clean Interrupt Handling, etc. for Die "Pro". 
E> seller* "Learning" tool! 

Color Computer ONLY . $58.95 

DATA-BASE ACCOUNTING 

database- Acamtmso 

XOMS from Westchester Applied Business Systems - Powerful DBMS: ML. program 
will work oo a single sided 5* disk, yet is FAST. XDMS l-evel I provides an "entry 
level" System for defining a Data Base, entering and changing the Data, end producing 
Reports. XDMS Level n adds the POWERFUL "OENER ATE" facility with an English 
I angusge Command Structure for manjpuliaung ihe Dais to create new File SVueoisa , 
Son. Select, Calculate, etc, XDMS level m adds special "Utilities" which provide 
additional ease in setting up a Data Base, such as copying old dad into new Dal* 
Structure*, changing System Parameters, etc 

XDMS System Manual - $24.95 

XDMS Lvl I - F A CCF- $129.95 

XDMS Lvl B . F A CCT - $199.95 

XDMS Lvl m FA CCF - $269,95 

XOMS IV from Westchester Applied Business Systems - XDMS IV Is a brand new 
approach to data management. It not only permits users to describe, ester and retrieve 
data, but also to process entire files producing customised repents, screen displays and 
file output. Processing can consist of any of a set of standard high level functions 
including (word and field selection, sotting and aggregation, lookups in other filet, 
special processing of record subset*, custom repit formatting, totaling and subtotal ing, 
and presentation of up to three related files as s "database* on user defined output report*. 
XDMS IV -F. CCFSTARDOS , SK'DOS - $350.00 
Upgrades to XDMS IV - $250 00 

DISASSEMBLERS 

SUPER SLEUTH from Computer Systems Consultants - Interactive Disassembler; 
extremel y POWERFUL ! Disk Pile Binajy/ASCC Eixrmne/Change, Absolute or FULL 
Disassembly. XREF Generator, Label "Nsme Changer", and Files of "Standard Label 
Names" for different Operating Systems. 

Color CortmJlD SS-SOBus (all w/ AL. Souire) 

CCD (32K Req"d) Ob). Only $49.00 

CCF, ObJ. Only $50.00 . wOource $99.00 

PS99.00 . TJ,$!00.00 - OS-9S10100 

CCO, ObJ. Only $50,00 



DYNAMITE - from Computer Systems Center -- Excellent standard "Batch Mode" 
Disassembler. Includes XREF Generator and "Standard Label" Flics. Special OS 9 
options wr OS-9 Version, 

CCF. ObJ. Only $100.00 CCO, Oh |. Only J 59.95 

F. " " $100.00 O. " " 1150.00 

U, * * $300.00 



Availability LegenOs- 



l\\ Please Specify Your Operating System & Disk Size !!! 



f . FLEX. CCF - Color Co mjutej FLEX 

O -OSB.CCOsColorCompulerO&S 

U . UraFLEX 

CCD - Color Computer Oiak 

CCT - GotorComptxer Tape 

' OS-9 is* TraBsvnarkol Micrrnrare and Motorola 

' FLEX a aTraesnmark ol Technical System a Conaurlants 




" Shipping ■ 



2. 



Add 2% USA. 

(min.$2 50) 

Add 5% Surface Foreign 

10% Air Foreign 
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BIT-BUCKET 



(By: AH of us. 



D 



MUSTANG-020 

Update 



The MUSTANG-020™ still continues to be ttl on our 
sales charts. Seems we will be having something new to tell 
you about the system every month or so. 

IN THE PLANNING STAGE: 

In the planning stage are the following: 

* Graphics Interface using tbe Hltacbl ACRTC. 

* A new Prototyping Board. 

* Full SCSI interface (will support disconnect, 
reconnect, bus arbitration, etc.) 

* Intelligent X.25 Adaptor. 

These new features will use the existing 110 Expansion 
Connector, available on all MUSTANG-020™ systems. 

Currently we are beginning to receive a slightly better 
supply of 16 Mhz devices. This has been one of (practically 
the only real) slow-down of delivery dales. For the standard 
12 .5 Mhz systems, deliveries have been getting out of here in 
about 48 to 72 hours. .after we do a sufficient burn-in. I 
insist on a complete bum-in; quality control is one area I 
insist is always on the front burner. 

We will let you know, in these pages, as soon as any of 
the above planned items become available. If you need 
additional information, please give me a call. 

DMW 

Alan Shigemura 
P.O. Box 23419 
Honolulu. HI 96822 
Dear Don, 

I believe in keeping my letters short and precise. I've 
seen a lot of cheap IBM and IBM clone hardware come into 
the market. I wish someone would develop an adapter for 
these hardware so that I may be able to use these hardware on 
the S or SS-SO Bus. 
Alan 

Video &. Memory 

£d's Note.- Not enough interest shown, so far. Need at 
least 400 - 700 potential sales to make worth-while. 
DMW 

Werner F.W. Zychllnskl 
PezeJetr. 22 
2d20 Bras»n 70 
W.Ccraeny 

PL9 and FIT 

In che April '86 laaue of Che 68' Micro Journal are aoae 
prograaa co calculate Che Faac Pourler Tranafora froai 
Jaaea H. Croaa Jr. The progress are all In PASCAL 
language and can be adapted Co ocher languages. 



The reault tlalnge are ahoun In cable 1. You can aee 
chac PL9 la very faac! Hut for ay application, lc'a noc 
faac enough. So I replace Che IncernaJ Floating Point 
Package fro* PL9 with an package who Is ualng che 
AK9511. The clalng reault with the aaae unchanged PL9 
FFT prograa can we aee in the row "+AKD FP". Now I 
replaced the whole "SCIPACK.LIB" library with an AM9SU 
library. The timing can we aeen In row "+AHD SIN". The 
reault with both the Floating Point Package and SCIPACK 
library with the AM9511 can we aee In row "FP.SIN". The 
computation of an PFT with 1024 input data polnta la now 
2.5 tlaea faster than the original PL9 prograa, and 8.9 
tlaea faacer Chen che original PASCAL prograa in che W 
Journal. 

But I think we can faater. So I write the coaplete 
"faatfourier" procedure In Aaseabler under full ualng 
the AM9S11. Thla glvea an draaarlc laproveaent aa you 
can aee In row "+AXD PFT" I The FPT under ualng the 
uhrlch algorithm on 1024 Input data polnce ia now 13.6 
tlaea faacer che PL9 prograa and 50 timet; faater the 
original PASCAL programl With thla speed and aoae 
hardware we can do an real tlae PPT analysis of sudlo 
frequency signal a. 



i uk. ptst i r» m i imu rr i <mu Ma i mtii I *««i in t 



« 

In 
1/ 



ft* 
Ml 



i.oa 

i.U 

V.ft* 
U. hi 
tl.Hl 



I 
I 
J IUU | IK. I! 



O.I* 
U.I1 

ii.;i> 



i.i/ 



ii.ii i 



U.UJ 
U.lb 

u. >u 
ii. m 
i. or 



n.n 



U.IM 
0.11 

tl.bU 



II. UJ 
U.U2 
U.U* 
11.11 

a.f- 

1.20 
2.t» 



wlivre "LUt: P»S" 

"raw PL»" 
"♦AW) I J"' 

"♦AW) SlK" 

"♦iPbSIN" 

"»Ann rrt" 



l.iirl.tiila KAXHAI. tlel.ix I rim Al.rll Kb 

pagt-' Kb ol 4>H* Hlr ru JouriM' 

la Ih* original prograa ail.ipted to PL9 Verelon 4. 

la VLV but the float lag Pulnf *'w«pt>t at Ion* tit 

replaced by tha AX.9M1 , 

la PL! with SIN am) COS ore replaced 

by the AM1M1 , 

Tha PL* Floating Point >«'kit>. SIM and COS 

lire replaced ullh rhe AJT.M I . 

Tile whole "leal lotirter" Prort-Jurtr uat rv|ilared 

by mn attieablor prograa who uacu t he ArllMi lor 

aij Integer mid Floating Point cuajiulac Jona. 



The t laa 1* Measured with an hardware tlaar I rota the procedure 
"Input! uort Ion" to tha procedure "output reault ", All values In 
second! on an Z Mil btrOf with * Hhi AM9MI. 



Here: are now the raw PL 4 PPT prograa,; 

/• PFT: The Utirlrh Algurltha In PLS */ 

LLObAL «YTt l)ATA( H1H) : /' Input dat.i I r,™ A/D ronrarter •/ 

UM. ReSULT_re(l02»). /• Ploat Ing-Polnt reault: real •/ 

RESULT laj(ID24); /• and Imaginary purl •/ 



Ih-reGtLK P2 I .2,4,11, l6.12.b4.l2IJ.2:>b,M2. IU24,2U4»; 

INCLUUK TRUKALSK.UKP ; 
INCUIOt lUSUSS.Lln ; 
include: SCIPACK. LIB ; 
INCl.UOe RSALCON.LIB ; 
INCLUBK REALtO.Lls : 



/• fH »/ 



The Uhrlch slgorltha on page 45 and 46 ia adapted to the 
PL9 language. The reaulta are decrlpted below. 



PHOCKUURl Input lunrl lonOYTL* .DATA: INTrXK". N): INTKCEK 
/•A \l.->l pulae la detlned In llila liinrtlon 1 / 
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liC IN 

I - ; 
REPEAT 

UATA(I) - I : 
I - I ♦ 1 ; 
UNTIL I > N/g ; 
I - N/g ; 
REPEAT 

DATAU) • ; 
I - 1 + I ; 
UNTIL I > (N-l) ; 
END; 
ENUPKOC ; 

PROtewiRE last fourlerUm 
REAL 



.DATA; 
.RESULT RE, 
.RK.SIII.rjM: 
NTKGER N): 



/* Input d«ta */ 

/* RfOI r«»ult */ 

/* IruiHliutfy rvRult '/ 

/* Muatn;r of points •/ 



ihteueh 



RIAL 



t'LOAT(CMTA(l)) 
O.U ; 



t»NP2J ; 
K*KL0AT(tl>2i) 
t»S(.rj() ; 
SIN(nrK) ; 
l'NP2JI ; 
I * NP2J; 
N2; 



A, B.C. !).►:,►, | . l.r.l../) ,NZ, 
KNf2.J,ln2|N2.NS7Ai':K,NI'2.I.NP2.M ^ili: 
N re , M_l a.M . » low p in»* ,»rK .> N , 
TEMP KE< 1024). TKIW IN(IUW): 
Kill* 

NSTACE - II ; 

WHII.K N<>rY(NSTAl;K) NSTALK - NSTACK - J ; 

W - 3.1<l»2S/i>LUAT(N/2) I 

M - N/2 ; 

KM - PLUAT(N) | 

I • ; 
RKCKAf 

TfcHP_RE( I) 
TEMP_1N( I) 
I - 1 t I ; 
UNTIL l>(l-l ; 
I - I ; 
REPEAT 

NP2J - N/P21J) ; 
Nf2.II • R/P1U-I) 
nji - P2(J)/2 ; 
I ■ ; 
REPEAT 
lo2J 
arg 
roew 
alow 
K 

PNP2J 

ln2]N2 • In2] 
r - U ; 
REPEAT 
A 
6 
L 
K 

M re 
NIB 

RKSULT_re(A) 
RESULT^r«(t) 
RKSUI.TJb(A) 
RESULT I a(L) 
r - r » I ; 
UNTIL r>(NJ>2J-l) 
I - I * I ; 
UNTIL IMP2.I2-I) ; 
r - U i 
REP HAT 

TEMP_re(r) 
T£Xr_lB(r) 
r • r + I 
UNTIL D(N-I) 
J - J ♦ I ; 
UNTIL IJNSTACK ; 
r - U ; 
REPEAT 

RESULT_r<r(r) 
RKSULT_la(r) 
r - r ♦ l; 
UNTIL r><N-t) ; 
EN [I ; 
ENUPKUC ; 



- r + tnij ; 

- r ♦ r j 

- r + PNP2J ; 

- r » U7JN2 ; 

- T(Mt'_re(L)»eo«w j 

- -TKMP_r«(c)«<ilnv ; 

- TE«P_re<H> ♦ M_re 

- TKMP_re(») - H w v 

- TKMP_1b(B) + (As 
• TEHP 1eU) -Nil 



RESUW_re(r I 
RESULT la(r) 



RESULT re(r)/>>N 
RESULT"la(r)/r'N 



SPACED); 
SPACE<2); 
SPACKU); 
SPAi:E(2>; 



CRU : 

PRINTINT(I); 

KPRINT (OATA(l)); 

PPRINT (RESULT re(l)>; 

► PRINT (*E.SULT~la(l)); 

fPRlNT (KAUC RESULT rod ),RESULT_lo(l))); 

1 - I + I; 
UHTH. IXN/2-1) ; 
liRl.t , 
END; 
ENUPKCC ; 

I'KutEiiuKi: MAIM: 

INTEGER N; 
MH|IN 

PRINT "NNunbcr 01 data point at "; 

K-PU(f-INPUT); 

L'RLP; 

■Kb re 

/« »t»rl oj MalnR •/ 

lnpul lunrtlonC .DATA, N) : 

I «»tfo,irler(. DATA, .RESULT RE,. RESULT IN, N) ; 
/• vud ul MalnR */ 

uur|.urruNul I (.l)ATA,.RESULT_RK.. RESULT IN,N) 

EMU; 

The output results of Che above program 



Number of data points? 64 





1 

2 

3 

4 

5 

6 

7 

8 

9 

10 

li 

12 

13 

14 

15 

16 

17 

18 

19 

20 

21 

22 

23 

24 

25 

26 

27 

28 

29 

30 

31 



1 

1 

1 

1 

1 

1 

1 

1 





























0.125 
0.118801 
0.101647 
0.077432 
0.0513167 
0.0282371 
0.0115892 
2.52019E-3 

1.56468E-3 
4.39468E-3 
6.307556-3 
6.3278K-3 
4.69793E-3 
2.42651E-3 
6.34222E-4 

5.2099IE-4 
1.634298-3 
2.58408E-3 
2.82512E-3 
2.26601E-3 
1.25557E-3 
3.50012E-4 

3.22647E-4 
1.06642E-3 
I.7717E-3 
2.0304E-3 
1.70378E-3 
9.8604E-4 
2.86713E-4 



0.125 

-0.0176803 
-0.0312675 
-0.0379243 
-0.0368811 
-0.0295286 
-0.0187922 
8.0477E-: 



0.120109 

0.106348 

0.0862204 
0.0631951 
0.04U8567 
0.0220784 
8.43308E-3 



4.07286E-3 
4.47I44E-3 
2.63502E-3 

3.48352E-4 
-1.05139E-3 
-1.I5037E-3 
-4.59947E-4 

-6.89717E-4 

-2.8324E-3 

-5.917U6E-3 

-8.80455E-3 

-0.0101962 

-9.I6946E-3 

-5.55294E-3 



4.36307K-3 
6.26953K-3 
6.83582E-3 
6.33738K-3 
4.81414E-3 
2.68539E-3 
7.83446E-4 

8.64373E-4 
3.270U8E-3 
6.4567E-3 
9.2467E-3 
0.010445 
9.25502E-3 
5.56396E-3 



6.24422E-3 6.25255E-3 

0.0117611 0.0118093 
0.0153826 0.0154843 
0.016466 0.0165907 

0.0149524 0.0150492 
0.0112447 0.0112878 

6.00767E-3 6.0I451E-3 



The PET In asaeabler .saunas that the PAUSE line froi the AH9MI 
Ib connected to HRDY froa t he 6809. If nol , you Bust replace the 
original AMD nwrro to the following: 

AMU 



MACKU 




LQA 


f.1 


STA 


AJ>U*I 


ISA 


APU-H 


Ml 


•-2 


EHUH 





PROCCUUKE HAUfREAL x.y) ; 
ENUPRW; REAL Sl)R( *»«<-y*y ) 



PROCKUURE »utpurreault'B*TC 
REAL 



INTUiER I 
bCOIN 

1 - 0; 

REPEAT 



.DATA: 

.RKSULTJtE, 

.RKSULT_|M: 

INTEGER N): 



/• Input data 
/> Real result 
/* laaKlLiary rtf^ulr 
r of polntM 



Thle version le aooetlsea ijowerl It uaea 5.43 aeconda for 1024 

points. 

The aaveeblur pro^raB uses 937 bytes of Beaury. The 

cose la full relocatible (a anat for PL9I). There sjust be et 
'/ least 78 bytea free on stark plue ajeaory for two temporary 

'/ arrays of N*A byre each. The required laeporary asaory on stack 

'/ la aleo 78+sN, (or tlJ2a, points 8270 bytes. 

'/ The orllLnaJ aanpled data points ere vrorcJ In » byte array 

becauau cha fattest A/0 converter ere 8-blt with flesh aode. 

You can change the array ro Integer (lb bit) data. The original 

Input date polotu are unchanged. 

The PPT result roef f Iclants In the arraya RESRE and RES 1M aru 
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In AMD I lost lug-point toroat will. Is nul compatible with rh* PL*, 
f tost Ing-polru loriur . Ths procedure AM1J_T0_/I.9 convert* one 

array ol eljk N nutburi (g Ihr PLV lurMI, 

The ••liabllnl of Ike FIT proKrasi MUST be done with Che "OPT KXP" 
for eucro expansion and wlchoul the oj'tlon **«C" on ctur calling 
llM for generating all bytes. The XBASIC program CEMPI.».»AS 
convene the outhut uj the aMaeablcr Into prupcr COJ itdlveenli 
lor PH. 

Her* are now the *PT In awiteaoler wild the AMU tu Pl.V runvt mat Ion 
program: 

111. CrT: Ul.rl.1i AJ||"illlne 

opt pac.kxp 
spc i 

« rASm-ltUC ► ASlPisjKlr.itt INTMAsH.INThl.t-.K.INThihll. INTH>K>: 1 HTKUtH J 

e 

* This rourlne 1* A ssaealijer procedure lor Ih* PL** Ciiapiler. 

* TlMt "tASVPUUMr.X" procedure c.lcul.l ,.« I he real a. id Imaginary 

* rotllrlonts using the Uhrlch Pr*T algorltlim. 



l*ru*'vdwr»f i-ajj I rum PLV l 

STACKED* KK - rAStrUUIUr.KC.UATA, .Kr.S_Kri 
whetu STACK DEI* 
-DATA 



.KKS IN, H); 



mo*t deep ttloi'k value encountered 
111 llil. prdcuiliir*. , 

pointer to c Iter Input Integer data. 

ol size N. 

This vt'ralun processes syr* data. 
,Kr.;. io. I'ullilur In real result Array. The 

lliu must bo N*i. Tlie loroaf Is In 

AMU (lost lnit liollil . 
.Kr.S_IH Pointer to Imaginary result Array. 

Sssjc site snd toraaf aa K£. 
N Number ot Input data points. 



aaa"B2Y 
SPC ] 

* HAIJMAJU: OePKNIMUJ AOWUSSliS 

APU MIU SP07II AH1W1II ADOltSS 
SPC ) 



SPC } 
• PUSH, PP DATA UNTU APU STACK 



LDA APU 

LOB APU 

STD ,61 

LOA APU 

LOB APU 

STD 2,41 

EXITH 

IPC 4l,X++,2 

IPC 61.Y++.1 

IPNC 41 ,U>*,7 

LOA APU 

LOB APU 

STD ,41 

LDA APU 

LDB APU 

STD ,41 

EX 1 I'M 

LDA APU 

U>B APU 

STD 41 ,U 

LDA APU 

LDB APU 

STD 41+2.U 

ENDH 

PAC 

* COMPUTE ARRAY INDEX 

Sj 

* INDEX <«rray>,<lndex> 

INDEX MACRO 
LUX 4t,U CUT ARRAY START ADOKESS 
LDD 42, U CtT INDEX VALUE 
LEAX D.X COMPUTE RESULT ADDRESS 
EN DM 

* ZERO ACCD 

* 

CLRD MACRO 
CLRA 
CLRB 
CNDM 

* EXECUTE AMD95U CONHAHD 



FPUSH <r> 
fPUSK v«r 



3,<r> TV 0,<r> -> APU 
»«r»3,U TO vsr.U -> fAU 



•PUSH MACRO 
IPC 41, X, 2 
IPC 41. V.I 
1IHU 4I,U,/ 
LUD 2, si 
ST» APU 
STA APU 
LCD ,41 
Sin APU 
STA APU 
UlTH 

IPC 41.X++.2 

IPC 4L,Yff.l 

IPNC 61 ,U+*,2 

ERR 41 IN PPUSH NOT ALLOWED 

IXITM 

LDD 41*2, U 

STB APU 

STA APU 

LDD 41, U 

STB APU 

STA APU 

ENDM 

PAC 

• PULL PP DATA PROM APU STACK 
* 

* PPULL <r> APU -> 0,<r> TO 3,<r> 

* PPULL <r++> APU -> r>* !■♦♦ 

• PPULL v«r APU -> var.U TO v«r+3,U 

4 

PPULL MACRO 
IPC 41.X, 2 
IPC 41.Y.1 
IPNC 41, U, 7 



* AMD <oper«tlon> 

■ 

AMD MACRO 
LDA _41 CET COMMAND CODE 
STA APUtl ISSUE COMMAND 
ENDH 

* PUSH INTEGER DATA DNTO APU STACK 

IPUSH MACRO 
IJ>D 41 ,U 
STB APU 
STA APU 
ENDM 

* PULL INTEGER DATA PROM APU STACK 

IPULL MACRO 
LDA APU 
]J>B APU 
STD 41, U 
ENDM 
SPC 3 

* AMD9511 OPERATION CODES 

_SIN EQU $82 PP SINUS 

COS EQU $83 PP COSINUS 
_FADD EQU $90 FP ADD 
_PSUB EQU $91 PP SUBTRACT 
_PMUL EQU $92 PP MULTIPLY 
_PDIV EQU $93 PP DIVIDE 

PNEC EQU $93 CHANCE PP SICN 
_PROT EQU $98 PP ROTATE STACK UP 

PEXC EQU $99 PP EXCHANGE T0S<-> NOS 
_PUPI EQU $9A PUSH PI ON TOS 
~ITOP EQU $9D INTECER TO PP 
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INDEX 



INDEX 
2 



DUP EQU SB7 DUPLICATE PP TOS ONTO NOS 
1KUL EQU $EE INTEGER MULTIPLY 
IDIV EQU SEP INTEGER DIVIDE 
PAC 

* ARCUMENTS SAVED ON LOCAL STACK 

RES K£ RMS 2 ...TO REAL RESULT 
DATA RMB 2 POINTER TO INPUT DATA 
N RMB 2 NUMBER OF DATA BYTES 
RES IM RHB 2 ...TO IHAC1NARY RESULT 

sec 3 

* VARIABLES ON LOCAL STACK 

IMP RE RMB 2 
TMP~IM RMB 2 

AA~RMB 2 INDEX 
~BB KHB 2 INDEX 
D RMB 2 
_E RMB 2 
? RHB 2 
J RHB 2 
I RHB 2 
R RHB 2 
_R RHB 2 
1N2J RHB 
N2 RHB 2 
PNP2J RHB 2 
IN2JN2 KHB 2 
NSTAGE KHB 2 
NP2J KHB 2 
NP2JM1 RHB 2 NP2J-1 
NP2J1 RHB 2 
P2J2 RHB 2 
P2J2H1 RHB 2 P2J2-1 
N RE RHB 4 
M_[K RHB 4 
M KHB 4 
SINW RMB * 
COSH KHB * 
PM KHB * 

STXSIZ EQU * REQUIRED STACK SIZE 
PAC 
ORG $0000 PROCRAM IS RELOCATIBLE 

Fn BRA FPTO SKIP OVER 
VN FCB 1 VERSION NUMBER 
SPC 3 

* CONSTANTS: POWERS OF TWO 

P2 FOB 1,2,4.8.16.32,64, I2B.2J6 
FOB 512. 1024, 204B,40»6 
SPC 3 

* START HERE, ALLOCATE STACK SPACE 

FPTO PSHS CC.DP.U.Y SAVE REGISTERS 
LEAU B.S POINT TO ARGUMENTS 
LEAS -STKSIZ+B.S HAKE ROOM ON STACK 
PULU D,X GET N AND RES IH 
PSHS D.X SAVE IT 

PULU X,Y CET RESRE AND DATA PNTR 
PSHS X,Y SAVE IT 
TPR S,U SET PRAHE POINTER 
ASLD SIZE FOK FP ARRAYS 
ASLD ...TIMES FOUR 
COMA HJUU COMPLEMENT 
COMB ...AND A 
ADDD I ...NEGATIVE VALUE 
LEAS D,S SPACE FOR TMP RE 
STS IMP RE.U SAVE ADDRESS 
LEAS D.T SPACE FOR TMP IH 
STS TMP IH.U SAVE ADDRESS 
SE1 (LINE CAM BE DELETE) 
LOA OPU»B CET MSB APU ADDRESS 
TFR A, DP SETUP DP REC1STEK 
SiTDP APD»8 INFORM ASSEMBLER 

* SOME SETUPS 



IBS 


V 




NSTG 


1£AX 1 


,x 


LSRD 




BNE 


NSTG 





TSTA 

BNE NSTG 

STX NSTACE.U 

LDD N,U 

LSKA 

RORB 

STD N2,U 

STB APU 

STA APU 

AMD ITOF FLOATCN/2) 

AMD PUP1 B-FLOAT(N), A-Pt 

AMD PEXG B-PI, A-FLOATCN/2) 

AMD FDIV B/AOA 

FPULL W W-Pl/FL0AT(N/2) 

IPUSH N 

AMD ITOF 

FPULL FN KN>FLOAT((N) 

* CONVERT INTEGER DATA TO REAL 
LDX TMP RE.U 

LDY DATA.U 
LDD N,U 
PSHS D,U 
LDU TMP_1M,U 
DATREAL CLKA FOK 16-bIT 1NTECER DATA. 
LOB ,Y+ ... CHANGE TO "LDD ,Y*V' 
STB APU 
STA APU 
AMD ITOF 
CLRD 
STD ,U«-f 

STD ,U++ ZERO TEHP_IM 
FPULL X*+ SETUP TEMP RE 
LDD ,S 
SUBO 1 
STU ,S 
BNE DATREAL 
PULS D,U 
SFC 3 

j • 1 i 

* REPEAT 
LDD 1 

L2 STD J,U 

* NP2J - N/P2(j) ; 
ASLD INDEX STILL IN ACCD 
LF.AX P2.PCR 

LEAX D.X X-> P2(J) 
LDD N.U 
STB APU 
STA APU 
LDD ,X 
STB APU 
STA APU 
AMD IDIV 
LDA APU 
LDB APU 
STD NP2J.U 
SUBD 1 

STD NP2JM1.U 
« NP2J1 - N/P2U-1); 
LDD N.U 
STB APU 
STA APU 

1J)D -2,X AT P2(J-1) 
STB APU 
STA APU 
AMD IDIV 

* P2J2 - P2(J)/2 j 
LDD ,X P2(J) 

LSRD II 

STD P2J2.U 

SUBD 1 

STD P2J2M1.U COUNTER END 

LOA APU 

LDB APU 

STD NP2J1.U CET PREVIOUS RESULT 

SPC 3 

* 1 - i 
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• REPEAT 
CURD 

L3 STD I.U 

* ln2J 
LEAX NP2J.U 
STB APU 

STA APU 
LDD ,X 
STD APU 
STA APU 
AMD 1MUL 
LDA APU 
LDB APU 
STD IN2J.U 



1»NP2J ; 



- W»FL0AT(ln2J) 

- COS(.rg) ; 
■ SIN(trg) ; 



■ arg 

* coiw 

* ilnw 
STB APU 

STA APU 1N2J IS STILL IN ACCD 

AMD ITOP 

PPUSH W 

AMD FHUL 

AMD DUP DUPLICATE "arg" 

AMD COS 

FPULL COSW 

AHO SIN 

FPULL SINW 

• P 1«NP2J1 ; 

• FNP2J - F ♦ NP2J; 

• U2JN2 - tn2J ♦ NZ; 
LDD I.U 

LEAX NP2JI.U 

STB APU 

STA APU 

LDD .X 

STB APU 

STA APU 

AMD IKUL 

LDD IN2J.U 

ADDD N2.U 

STD IN2JH2.U 

LDA APU 

LDB APU 

STD F,U PREVIOUS RESULT 

ADDD NP2J.U 

STD FNP2J.U 

PAC 

* INNER LOOP 



r - ; 
REPEAT 



LDX 
U STX R,U 



- r ♦ i„2j ; 

- r ♦ F ; 

- r ♦ FNP2J j 

- r ♦ ln2JN2 



LDD R,U 
ADDD FNP2J.U 
ASLD 
ASLD 

» Hre 

• M_l« 

LDX THPRE.U 

LEAX D,X 

PPUSH X 

AND DtlP DUPLICATE "TEMP re(C)" 

FPUSH COSW 

AMD FHUL 

FPULL M_RS 

AMD FHEC NECATK TEMP RE(C) 

FPUSH SINW 

AMD FHUL 

LDD R,U 



TEMP re(C)»ca»w 
TB)P~re(C)»»lnw 



ADDD F,U 

ASLD 

ASLD 

STD _BB,U "B" AS INDEX 

LDX THP RE.U 

LEAX D.X INDEX STILL IN ACCD 

PPULL H IH 



TEHPre(B) * Mre 
TEMP re(B) - M re 



* RESULT re(A) 

• RESULT~re(E) 
FPUSH K RE 

AMD DUF _ DUPLICATK H_RK 

FPUSH X 

AMD DUP DUPLICATE "TEMP.re(B) 

AMD FROT ROTATK UP 

AHD FADD 

LDD R,U 

ADDD IN2J.U 

ASLD 

ASLD 

STD AA.U "A" AS INDEX 

INDEX KESRE.AA 

FPULL X 

AMD FSUD 

LDD R,U 

ADDD 1N2JN2.U 

ASLD 

ASLD 

STD _E,U "E" AS INDEX 

INDEX RES K£,£ 

FPULL X 



• RESULTIb(A) - TEHPIb(B) * H_li ; 

• RESULTIb(E) - TEMPIb(B) - H_ll ; 
INDEX THP1M.BB 

FPUSH H IM 

AHD DUP OUBLICATE H_1H 

FPUSH X 

AHD DUP DUPLICATE "TEMP in(B)" 

AHD PROT ROTATE STACK UP 

AHD PAOD 

INDEX RES IH.AA 

FPULL X 

AHD FSUB 

INDEX RES IH.E 

FPULL X " 

• r - r ♦ 1 j 

• UNTIL r>(NP2J-l) ; 
LDX R,U 

LEAX 1,X 
CHPX NP2JH1.U 
LBLS L* 
PAC 

• 1 - i ♦ 1 j 

• UNTIL 1XP2J2-1) ; 
LDD I.U 

ADDD 1 

CHPD P2J2H1 ,U 

LBLS L3 

• r - ; 

• REPEAT 

• TEMP re(r) - RESULTre(r) ; 

• TKHP~i«(r) • RESULT_l»(r) ; 

• r - r ♦ 1 ; 

• UNTIL r>(N-l) ; 
LDX N,U 

LDY THPRE.U 
PSHS U 

LDU KES_Ri.',U 
LL1 LDD ~U** 
STD ,Y++ 
LDD ,[}** 
STD ,Y++ 
LEAX -I.X 
BNg LL1 
LDU ,S 
LDX N,U 
LDY THP IM.U 
LDU RES IM.U 
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LL2 U)D ,l)t+ 
STD ,Y*+ 
LDO .U-M- 
STB .1** 
LEAX -l.X 
BNC LL2 
PULS U 

J - J ♦ i ; 

« UNTIL J>NSTACE ; 

LDO J,U 
ADDD 1 

CMPD NSTACE.U 
UiLS L2 

• r - ; 

• REPEAT 

• RESULT r«(r) - RESULT_re(r)/FN 
» RESULT~ln(r) - RESULT_ln(r)/PN 

• r - r ♦ I ; 

• UNTIL r>(N-l) ; 
LOX N.U 

LDY RES RE.U 

FPUSM FN* 
RK1 AMD DUP 

PPUSH Y 

AHD FEXC 

AMD FDIV 

FPULL Y++ 

LEAX -l.X 

1NE XR1 

LDX N,U 

LDY RES IK,U 
RX2 AMD DUP 

FPUSN Y 

AND FEXC 

AMD FDIV 

FPULL »♦♦ 

LEAX -l.X 

BME RX2 

• KNU ; 

nt S.U SAVK STACK rMlKIKH 
SUBO 4 KKSULT IS STAI.K UEKP 
TKK U,S 
LEAS STXSI/..S 

• KNbrMK: ; 

MILS tX.UK.IM.KC 



• »ASr)VHOC AMU TO PL9( IKTW^.R, INlKI^K.k); 

• ANU_TU PL¥< IKTMUKK .HUKK'UH. COUNT); 

I 

• CONVERT AKKAY PUINTKIl BY .BUFFER WITH LENGTH COUNT 

■ KHUN AK9ill FLOATING-POINT PUKMAT TO PL* FLOATING - 

■ POINT FORMAT. 



AMUPL9 PSHS 


(J 


SAVE MEtiLSTKR 


1.111 


4.S 


gey count 


LWI 


b.S 


...ANU DATA POINTER 


CONVERT LSX 


l.U 


MAKE ROOM POD PL9 SIGN 


■OH 


2.U 


SNIFT ONE KIT 


tut 


3.11 


., .TU KICK! 


LOA 


,U 


GET EXPONENT 


BPL 


POS 


SKIP IK PuSlTIVE RESULT 


a* 


l.U 


..RESULT IS NEGATIVE 


tut 


2.0 




..ANU MANTISSA MUST 


com 


3.U 




..FOR PL9 


INC 


l.U 




..Twiia-ruaolcKnt 


INK 


PlIS 




. .NUMW.R 


im: 


t.v 




..SO NFJiATK TIIK 


INK 


cos 




..MANTISSA FROM 


INC 


l.U 




.AMM5II 


PUS ANOA 


$7y 


MASK MANTISSA 


HITA 


$411 


PXPlMirNT POSITIVE r 


BEQ 


■»4 


xir it so 


■MA 


5BO 


ELSE MAKE NEC AT I VE 


StA 


,11 


SAVK HACK 


LEAD 


4.U 


NEXT >'' NUMBER 


l.hAK 


-l.X 


LAST NUHRt.H 7 


BNK 


CONVERT 


COUP IK NOT 


PULS 


U 


RE40VKK REGISTER 


UTS 






JACK Tl) rv> 



Hcrr Ait huh ih» roaplatt PL1 (irogr.u wlih FFT In mntlir: 

/• PPT: The Uhrlch AJ»orlthe In PL9 •/ 

CLOBAL BYTE U*TA(I024): /• Input data Iroa A/It coo»«rt«r •/ 

XEAl RESULT r*< 1024), /» Pinal UK-Point raaull: r.a! */ 

RESULT* 1b(IU24); /• and lia|!mr r pari •/ 

IHTNUCK P2 l I < , ,4,«,|»,?2,b4.|2B,l"i6 > M2,l024,2U4B; /• J", ■/ 

INCLUDE TRU FALSE. DBF ; 
INCLUDE 10SUBS.LIB ; 
INCLUDE SC1PACK.LIB ; 
INCLUDE REALCON.LIB ; 
INCLUDE REALIO.LIB ; 

PROCEDURE inputfunrtton(BYTK .DATA: INTEGER N) : INTEGER 1; 
/*A 12.514 pulse 1* defined In chl« function*/ 
EEC IN 

1 - ; 
REPEAT 

DATA(l) - 1 j 
1 • 1 ♦ I ; 
DNT1L I > N/8 ; 
1 - N/8 ; 
REPEAT 

DATA(l) - 1 
1 - I + I ; 
UNTIL 1 > (M-l) ; 
END; 
ENDPROC ; 



<ty*ltuC KASrPOUKIK.KC INThCEK, INTW.KK 
CKN SM. 518,501 ,500,501.500,402 
i.KN SOU. $411. Sml.sNH, Sill ,SINI,5.«/. 
tt.N 5»9.5:iJ,56«.53i.5t«,S«*.5 " 
CEN S43.SiB,$49,$S«,$49,$43.$i3, 
GEN S32.$EB,SI0,$EP,$4A.SIA.SI0. 
CEN SFP.53U,50l.544,SH,52b,SFA, 
CEN $44,5^6,580.508, $20. $07, $7E. 
OEM SV7.$7r,S8b,S99,S9 7,S7E,SBb, 
CEN SCB.S3A.$9b.$7K.$06,$7E.$EU 
CEN $Bb,S9D,597,S7F.596.S7E.SOb. 
GEM SKU,SC«,$4B,$AE.$4B,$I0,$AE, 
CEN $K6.SA0.SD7,S7E,S97,S7E.So6 
CEN SCI.S96,$7K,$06,$7E,$E0.$BI 
GEN SB3.50U.S01.SEi>.$K4,$26.$DA 
CEN 5 S8, 54V. 530. 580, SFK. 528.5:10 
CEN $84.507,576. 597, S7K.?Bb. SEP 
CEN S2B,S8J,SOU.SUI,$EO,$CM.$2A 
CEN S07.$7K,$97.$7E,$Bb.$EF,$97, 
CEN SBl,SD0.SDI,S8U.SC8,S:>D,S9b 
CKN StU.5CB.Sl«.510,SCa,52«,5U7 
CEN S7E,$8b,$EK.$97,S7K.S9b,S7E > 
CEN S7E,»Bb,S9U,S97.$7r,SEC.4CB 
CEN S07,$7K,S97,$7E,S86,$92.$97 
CEN S7F.S9b .S7K,SDb.S7E,SKU,SCB, 
CEN $8b,SB2,$97,S7y,$96,S7E,SU6 
CK.N 5*D,SCB,S40.5KC,5CB,S1B.S3D 
CEN SU7,S7E.S97,$7K,$86,$EK,$97, 
CEN SCB.$24,$9b.$7E,$U4,$7E,$KU 
GEN S«E,SUO,SUU.$AF,SCB,$IA.SEC 
GEN $49,SAK.$4B,S30.SBU.$EC.Su2 
CEN 597,57c, 586, 5B7. 597, S7F.5tC. 
GEN 542, 5D7.57E, 597, 57K, 586,592, 
CEN 532.596,57E.5D6.57E.5EU,5C8 
CEN 51)7. 57E, 597. 57E.5EC.5C8.53E 
CEN 5NC.5C8.5tA.SE3,5Ca.514.5MI 
GEN 5BB.596.57E,5IM>,57E,$KD,5CB 
CEN SEC. SOS.Sn. 507, S7E, 597, S7E, 
CtN $87,597,57P,5EC.5O2,507,57E. 
CKN S86.SB7,597,57F,5»*.S»8.597. 
GEN StJ.SCB.SIK.SSB, 549, 5^8.549. 
CEN 596.57E.506.57E.5EU.5B4.5V6 
CEN S'r-.SEI:.SCB,5IA.5C3.5CB,524 
CEN 5C4.5EC.5CB.5I2.5XI.SBB.596 
GKN 57E,5EU.5l>^.5AE,54A,5EC,54K 
GEN 57E,5EC.5CB,536.507.57E,597 
CEN 57E.597,57E,5EC,584,5D7,57E, 
GEN 597,57P.5»6.59U,5»7,S7K,»A8. 
CEN 57E,5EU,5»4.596,57E,5CM,.57E, 
CEN 5EC.5CB.5l2.5)U.5BB,59b.57E 
CEN 5EU,502.5AE.5C«,5IA,53D,50I 
GEN 5C8.5III.5C3. 500. 501. 510. SAl 
GEN 510, SAE, 548,534. 540. 5EE.SC4 
CEN 530.5IP.526.5P4.5KE.5K4.5AE 
CKN SE0.5AI ,5EC,5CI .5KU.5AI.530 
VKN SCI. SOU, SOI. S1U.SA3, SCI .$*<>. 



INTECEK.INTLCEHJ: 1NTECER; 
Sou, $04, sou, SOB, Sou. 5 10, Sou, $20; 

}IK». S0» . $<NI .$118 , $WI , $ III ,$lnl, $14 ; 
>IB.Vi4,$lt.,$J7.$)U.$J4.$»U.$IP; 
$C3,$00.$OI.$32.$EB.$IO.$EF,$48; 
$B6,$P0,$lP.$«B,$EC.$44,$gE.$FP; 
$4U,526,5F7,$AF,$C«.$26.$EC,$44; 
$97.S7E,$B6,S90.$97,$7P,$B6,$9A; 
$93.$97,$7P,$96,$7K,$06,$7E,$EU; 
$CB,$3C.$EC.$44,$07,$7E,$97,$7E; 
$7E.$E0.$CB.$46.$96.$7E.$B6.$7E; 
$42,SEC,$44,$34,$46,$EE,$4A.$4F; 
$90.$97,$7F,$4P,$SF,$E0.$C|,$i0; 
$96,$7E,$06,$7E.$EO.$8I,$EC,$E4; 
51i,54t>.SCC,5O0,5Dl,SED,5CB,51bi 
$BB.$EC,$44,$D7,$7K,$97,$7E,$EC; 
597,S7K,59b,$7E,$06,57E,5ED,$C8; 
5 EC. 544, 507, 578,597, 5 7E. SEC, 5 IE J 
S7F,$EC,$B4,$44.$S6,$KU.$CB,$2E; 
$7E.$D6,$7E,$EO,$CI!.$2C,$4F,$)F; 
$7E.$97,$7E,$EC.$B4,$07,$7E,$97; 
$l)b.S2E,$E0.$C«.$IE.$U7,$7E,$97; 
$}C,$07,$7E.$97,$7E,$SC,$CB,$3A; 
5 7K, 586. 5B7, 597 ,57 F. 586, 583, 597; 
542,$96,$7E.$06,$7E,$KU,$C8.$44: 
57E,SEO,SCB,53E,$96,$7E,$D6,$7E: 
$CB.$2C.$07,$7E,$97,$7E.$EC,$B4; 
57F,SEC,5C6.5l«.SEJ.5C8,530,5ED; 
5CB,5I4,$E3,$CB,$2B,$E0,$CB.$22; 
5CB.$IA.$E],$CB,$22,$i8.$49,$)Bi 
507,57K,$97,$7K,$EC,$B4,$07,$7E; 
$CS.S44,$07,$7K,$97,$7K,$KC,$UI; 
S97.S7F.S96,57E,5D6.57E,$ED.$C8: 
534,5Bb.59i,597,57P,5EC.5C8,S40; 
$U7,$7C,597,$7E.$B6,$92,$97,$7F: 
549,5 5B,S49,5El>.54E,5A£,548.530; 
53b.$9b.$7E,$06,$7K,$ei>.$CB.$U; 
$K.$CB.S12,$07,S7E,$97,S7E.$B6; 
597, 57E, SEC. 584. 507,57b, 597. 5 7E; 
57F.$86.$90.$97,$7F,$EC.$C8,$IAi 
SKU.54C,$AE,5C4.SEC,S4C.S>U.SBBi 
57K,$06.$7E,$EO,$02,$B6.$9I,$97; 
55B.549,5S8.549,5EU,5C8.5I2.SAE; 
$7E.Sob.$7E.$EU,$B4.$96.$7E.$M; 
5 3O,SBB,SKC,$CB,$MI,$07,$7E.$97; 
57E I $B6.SB7,$97.$7F.$EC.$U2.$07; 
597, 5 7K, 586 ,587, 597, 57F, 586,598; 
54b, SEC, 54C, 530. 588, 59b, S7E, 506; 
$EU,$02,$B6,$9I,$97,$7P,$AE,$46; 
$U6.S7E.$EU.SB4.$96,$7K,$06.$7E; 
SAC,$CB,$2A,$IO,$23.$PE,$8A.$KC; 
$C8.$30.$IO,$23.$FE,$]2,$AE,$44; 
SEC. SCI. SEU. SAl. SEC. SCI. SEO, $A1; 
$44,$10.SAE.$4A.$EE,$46,$EC,$CI; 
$IK.$2b.$r4,$}»,$40.$EC.$CB,$lb; 
5I(1,S23.$KU,$9A,SAE.$44,$I0,$AE; 
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CEN Sca.jec 

u:« S/t.586 

cew S96.S7E 

CF.H 5«6,$B7, 

CEN S7E.SS6, 

CEN 596. S7E, 

CEH SIP. 534, 



5C8.54B 
597.S7F 

599,597 
SU6.57E 
597. S7P 
599.597 
SU6.S7K 
512. SEE 



SD7,}/e,597,57e 
SEC.S22.5U7.S7K 
,*7v.>»t.,5»>.'! , </ 
5KO.5AI.5Mi.5lF 
SEC,SU.SD7,S7E 
57f.5Hk.593.597 
SEli.SAI.Slu.SIP, 
S4A.511.5»9; 



SEt.SCH.S46 
597.57t.5ti. 
S7r,$9h,57£ 
S26.SD8.5aE 
597.57K.StC, 
S7K,S96,S7e, 
5J6.5W.5lF, 



Slt7.57t.597.$7L 
SA4.SU7.S7K.S97 
*U6.57t.stu,5AI 
5**.5IU.Saz.5*6 
5*4. 507. 57£, 597 
506.57E.SSU.5Al 
5*0. 581. 50O.5O* 



ASKPROC AMDTU PL9( tltTECEA. INTEGER) ; 

CEN S14.J4u7SAF..S64.5EK..S66.S64.S4l.S64,S42.S66.S4J.SA<>,SC4,S2A; 
cf.n SIM, Thi.HI.il. I. >*/.>■> I. >* l,>*C,S4».**k.SiH».S6«.S*2.S2i>.Sf|»; 
CER ;a<:,S4I.SH4.S/F.$B1.54L>,S27,$02.SBA.SBO.SA7.SC4.S)3.S44,SX); 
CF.R Sif, >7«,. >m>,$ II. S4u. iiv. 



(•KOCEUUKk NAUlHtAI. «.y) ; 
ENUPROC HEAL SA1K(»»>»J«») 



PROCEDURE outiiutresultdtllTE .LATA: 


/ 


KEA1. .RESULT RE. 


i 


.RESULT 1M: 


i 


INTTOKH N) : 


1 



INTWIF.R 1 . 
■EC IN 

1 • 0; 

Ml PEAT 
CkLK ; 

PRlNTlNTfOl spai>;(4) ; 

SPRINT (IIATA(D); SPACt(2); 

FFXIHT CKBSULT_r«(l)}; SPACE(2); 
PPK1H7 (KESIILT ta(lJ): SPACE(2); 
KPKINI* (NAC(RESUI.T_ri,<l).KeSULT_)A<l))). 
I • 1 ♦ I; 
UNTIL IXNH-I) I 
CRl.K ; 
END; 
EHUKKUC ; 

PROCEDURE HAM: 

iktrcer N; 

KCIN 

PR1RT "NNuabcr ol dat • points; "j 
N-FlXlriNPUT); 
CW.Fi 
KCM 
7* tlalng ilirn her* •/ 

Input tuarl lost. DATA. N) ; 

faattourl«r(. DATA. .RESULT RE , .RESULT 1H,N> ; 

aaj to .!>!»(. RESULT NE..H); 

«»d - lo''pl»(. RESULT IH,N); 

I* ll«Jl»K »•»*<)«• (liTC •/ 

out put result!, DATA.. RESULT RK,. RESULT Itt.N) 
ENU; 
ENUj 

TL*u imtpuf results uf the at>'iv.: protein: 



Ruaber ul data point.? 64 



Input data •/ 

Heal result «/ 

Imaginary result • / 
Nuabcr of points •/ 



II 
I 
2 

3 

4 

5 

6 

7 

8 

9 

10 

II 

12 

I) 

14 

I) 

16 

17 

If) 

19 

20 

it 

22 

23 

24 

25 

26 

27 

28 

2" 

JJ 

II 



l!.l<", II 
II. I 111 BO I 
0.101647 
O.0774JI9 
t). (1113167 
0.028217 
U.UI 11892 
i,WUHt-J 

I.1646BE-3 
4.19468E-1 
6.1U716E-1 
6.12779K-3 
4.69794R-3 
2.42612E-3 
6.14224E-4 
U U 
5.2OT89K-* 
I.63429E-) 
2.184U8E-1 
2.P.21J2E-} 
2.760UIS.-J 
I.I1S17E-1 
3.1001 2F.-4 

3.226481-4 
1.06M1E-1 
1.77I7K.-3 
2.0 3D4K-1 



ll.l/'> 

-U. 01)4(101 

-O.UJI2n/4 
-0.0379243 
-0.O36HHII 

-0.029128k 
-O.UIB7922 
-B.U*/)E-1 



ll. I^llluS 

ll. IU6 148 
0.0862204 
II.IJ6JI951 

0.0408167 
0.0220784 
8.4130BE-J 



4.IJ72BUE-1 4.16307E-J 
4.47I44K-3 6.20913E-3 
2.6J1UIE-3 
3.4B117E-4 
-I.01119E-3 
-I.I1017E-1 
-4.499398-4 



6.H1183E-3 
6.31717E-1 
4.81415E-3 
2.6B139E-1 
7.B344JE-4 



-6.B9717E-4 

-2.H124IE-1 

-S.9I707E-1 

-8.8044SK-1 

-U.UI ll 1 9o^ 

-9.l6941aVS 

-5.41294E-J 



8.64372E-4 
3.270O9E-1 
6.41672E-3 
9.2467E-3 
U.U1U441 
9.251U2E-1 
1.16396E-3 



6.24422E-) k.25211E-l 
0.1)117611 (J.0II8U93 
U.Ol 11826 U.ljli*B*3 
U.UI6466 0.IJI619U7 



tenants* Cits sieleesata lor PL9, 
I roe An asasakly I (In 
Rots; tks sesiiafcljr sum 6e »l<b OPT EXP 
sad tat Ilea Its* awst not 6* *C 
Vstslon t.oa 7.Afr. 86 



Ins CENPU.Ul »»ASIC vrucna: 

lu not §••■•■«■•■•■•••«■■••■•■■ 

10 RaM 

)U SO( 111111,111 

4U HUt 

lu >» 

60 AKM 

)u ux 
•o ax 

♦U RES 

100 REM 

I 10 •«" ••• ...••«•••.... •••••••• 2) 

UU SIM AI7( 10) 

1M ID) 

140 OOMII 0)0 : IB"' ISITIAL1ZK PARAHCTVIS 

110 REK 

ISO KOI 

1)0 RtN ••* HAIR LOOP •• •• 

l»0 REM 

l«0 IRfUT LINE 1,15 I IP «*•*" TrIER 190 

juti if i«sts( i.«».t»x>u Tata cuts »mi 

?I0 W ISSTS(|.»».T1)00 TMEN 190 

ItU ri)-CR5T«U.I>."' ♦"llRBRss* CRICE POK PIUCtOURE MEABKIl 

^Rl IF PI7(>U THIS PSlNT 111 ).RICRT»( R5.LEW IS )-P I 7-2) s LI7«UN| i COT 

14U A».KI0I(>S.AI)(I),I1> :»»••* OP-C00RS 

21U «!.«!CHT$(M.LIIRU»>-A|7U)) :RO«#s. NKINORICB 

IbU 1ID-U : «|7>l 

1>I> IF hlUK»»,l,lP-" " TIIKS U1TU 160: «(■<••• «|S. SET. USMTRTH . . . 

7*0 «ER 

290 «■*••• ICARR INPUT LIMR 

lull IF RI7>ULN(A() THEN »0 

111) IF IHUJUI.III .1)." - TREN R17«ll)*l I W)TV 100 

J 70 U-BI.Ut.MlUlUI.IU.i).-," I DU-t 

130 TI7-tl)-l : II7-IIIH ; »17-II7.1 

340 IF VI 7-0 THU COSOI >JU :l»— PXtRT LINE IP PUU. 

350 tOTU 90U 

)S0 COUII MO : «*••• PRINT OUT CEREsATEl) LlHE 

37U WTO 190 

3RU IER 

3941 san 

400 REM ■•■•■•■•»■•■« 

410 REN * PHOCUH END * 
*7U REH •••••••••••••■••••■ 

4 30 REM 

44U IP C17-4) THUS 4*0 itEltssi CRUX FOR NON-HIWTID COOS 

410 Tl7-Oil» kEK(t>»LIN<CI) THEN 017-1:003111 ItO 

410 PRlRTlPtlRt! PRINT 

470 PtllTT Ti><al , ';U7:''Ma*»sf»S llasi sllk";RI7i"6rts>" 

4M IP 01)00 TRCR PRIaT "llasull acaada •« till *;PIt 

4*0 PRINT " Csasratlea caarlata." 

100 OUTO IOAO 

110 tP Ol)<>0 TRES CIOSI 017 
120 ASM 

130 ARM 

140 RES ■•• 

111 IEN * PRINT OUT LINE • 

1*11 EE» •••••«.••••• ••■ 

110 ACS 

180 IF CI 7-0 THEM GOTO 600 :REN«ss SS.1F it Iius-wvauiu, 
190 IP V17O0 THEN UOTO 690 

tlRI IK RU;HTS(8>.1)-"." TiIP.H B$-U,«S(B>,l.fc<i(l>57-l)»s> :ke»*** 
610 IP DI8-0 AND «5«"" THKN 680 :R£ll«<« IWTHIN6 TO PRIST 
620 TIB-A1B14) 

630 IP DI8O0 THEN 640 :KtK'"« SKIP IP CENERATEU OP-COOES 

631 iS-"":TI*-'J 

616 IK LEFTSjtNS.l )-"•" I'MlipJ M5-RH;«T5(H5 ,LKN(N5)-l ) 

64U IK TIH-AI8C4) TIIKH HS-Ll.H J(«S . Al«( ))) 

65U LP UI8O0 THEN PRINT 111a. HS; 

660 IP CIB'O TURN PRINT 1118.TABCTIB) ;S15*M5;TA8C 70) ;S95 ; 

67U IP 1)1800 OR CIB-0 THEN PRINT 1118 : LIB-LI8H 

680 BS-CS : 118-15 

690 RETURN 

71MJ REM 

710 RkM 

720 REM •..••«....... 

730 REH * ERROR ROUTINE • 

740 REH ••••• •...«.«.< 

710 RtN 

760 IK eM-it THEN RESUME 380 

770 IK ERROA TrtCN OH HUOR COTU 



NUT KOUND.": PRINT 



1.70I7NK-3 ll.t|H9'i/1 II.HI1IJ492 
9.B404R-4 U.UI 1/44/ U.illl/III 

2.S6?lt-» 6.0ti76i£-3 6.0lot-3 



780 PRIHT:PRIHT CHRSt 7) ;"F1 Lt '";FI>; 
790 RESUME BIRI 
»U0 STOP 
B1U REX 
820 REN 

830 REH ••••••••• ••••••• 

840 REM • [NITALIP.ATIUH • 

S5U REM • 

■60 KEH 

B70 (IN EKJUHt WfTU 7IU 

880 SIS-"/* " : 1.9S-" •/" : US-"S" 

8V0 SS-";" : U5-" UEN - : »5t;5 

891 tS-"ERROR(S) ORTECTEO" :REH"sa £ND STRING 

892 TS-"TSC ASSEHRLER" :RKH««a PACE STRDRJ 
900 YlB-ll !RRHa«« mx n r Tr^ PER LINE 
910 018-0 :REN»«« OUTPUT CHANNEL 

920 U« -0 :REM*<* CLNERATKU LINES 

930 B16-0 :RBM««« CP.NERATkD BYTES 

940 AI8(l)-8 [RK/lsss ASMH: START CUI.IWN OP OP CODES 

910 AIRUI-11 |REH«S« ASHIIi START CIILI7HN OK HXENONIC 
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960 AlH( D-4M :RKM«« HICMT COLUMN UK UK.NK.RATK.U '••/" 

97U AI8(4)-27 :K«M«** U.rt CULUMM Up UKNEbATKU "/»" 

980 INPUT "file to r««d ".PI? 

990 OPtH UI.U PIS AS I 

IU00 INPUT "Coapreaaed (oriMCT (Y/N) ";C5 

1010 IK C$-"K" IHtN Cltt-l KUSH C18-U 

1020 INPUT "Output mT(tnlM)), P(rlnter), or u(lelt) ";0$ 

IUK) IK U$-"P" TNP.N (IPkN "U.PKINT" AS 

IU4U IK HSO"U" TK«N 1U7U 

1050 INPUT "Kll< to write ":P2S 

1U6U Ole-2 I UrtN NKW P2$ AS UlH 

1070 PKIMT : PKINT : RETUKN 

I0S0 END 

Here I he Ulirlrti ultforlthm I n T^O PASCAL. Alter rlila prt,KT*a Hie 

FL9 prograaa wa« been written: 



Th,. lllirlrli Altjorlllia 
Tlilii Mljjorlrhw In an nun-ln-|ilare type FKT. Th* Uhrich 
nl K <irllliii wiiu llrnl |niti] InlMil In luna »l \tli1 . Thl* 
method reeulla In vary t-uaiiai-r prugreab (see Uhrich, 
1969). Till* prucues doet* nut require * Me reversing 
urocedurb as In the Coultft -Tuxey algoricha. 



CONST 

N - 6* ; tnuaber of data point! J 

NSTACt ■ 6 ; [power ur two ol the nuaber ot data polnta) 

p| - 3.l4li926 l >4 : 

TYPK 

roaplex - RtTORD 

re : RKAL ; 

In . KKAI. 
KHU ; 

VAR la two dlacnalonal array li used to ttore laput date and reeulttl) 
x : ARRAY U..2.U..N] Of euaplex ; 



rRUCKUURK 


Input Funrt Ion ; 




l» 12.519 puloa la dellned 


In rhlH tu.irtlon) 


VAR 






1 : INTeCEK 


j 




BCC IN 






Ku« 1 :- 1) TO (n an 8) 


IK» 


BHCIN 






xl 1.1 


.re ■■- I.U 




x|l,l 


.4m :- O.U 




END ; 






KOR 1 :- (N 


DIV 8) TO N 


n» 


ai:<; in 






xll.l 


.re ;- O.U 




x|l,l 


,1m :- O.U 




tffU 






P.NU i 






PUNCTlltfl r2(x 


INTKUKR) ; 


INTKUKR . 


BtttIN 






CASK x OK 







1 


P2 

PI 


1 
2 






2 


P2 


- 4 






3 


P2 


B 






4 


P2 


16 






5 


tl 


32 






6 : ri 


64 






J 


P2 


- 128 






It 


P2 


- 2*6 






If 


P2 


• 51* 






10 


P2 


' 11124 






11 


P2 


- *U4« 




end 






END ; 











PROCEDURE faarfourler 
VAR 

A.B,C.0,t,i',J.t.r,ln2J 

M 

V.NlnW^DMW 

MX Hi 

POR 1 :• I TO N3TACK 00 
UKCIN 

Kim I :- TO (P2tJ) DIV 2)-l 00 
iwu I h 



IVhrlch algorltha| 



INTKCMt 
eiu»|,li:a 
KEAl.; 



ln?J 

Cvow 
ilnv 
D 
K 

►"OK r 



Z.IPpl/cuNVlN) ; 

1»(N DIV P21))) i 
C(iS(W*UiNVUn2J)) ; 
SIN(w*CaW(lo23)) ; 
l«(N DIV P2<JJ) 1 
1«<N DIV P2U-D) J 
Til (N OIV P2(J))-J Wl 



BW;IN 






A 




:- r ♦ 1) ; 


■ 




:- r * r ; 


C 




:- r * P ♦ (N DIV P2(J) 


t 




:- r ♦ V » (N DIV 2) ; 


H.re 




:- xl liCl .re*coaw ; 


M.lfl 




!- -*\ I ,C| ,re*ilnw ; 


*l2.A] 


re 


:• x|l,ll.r« ♦ K.re j 


■[2. At 


la 


:- xllibj.ln * H.lai | 


XI2.K) 


. re 


: - a 1 1 , B J . t e - M . re ; 


tU.tl 


la 


:- x|l ,B|.1« - M.l. 



UNO 
UND i 
FUX r :- TO N-l OU 
BKUIN 

al l.r|.r. :. »U, rt.ru ; 
x|l,rj.la :- xl2,rl.la 
£N0 
ENO ; 
POR r :- TO N-l 00 
IOC IN 

xd.rl.r. :- xll,r).rv7C0NV(N) 
x|l,r|.l« :- xll,r|.ta/CONV(N> 
ttfV 



ENO 



FUNCTION HA0(x,y : KKAU : REAL . 
BEGIN 

KAC ;- Sy*T(S')R(»)*bOR(y)) 
ENO | 

PROCKDUKE outpvltreeuU . 
VAR 

1 : IKTIUiKH i 
BKC1N 

yOR I :- TO (N U1V 2)-l 00 
BECIH 

WKITKI.N ; 

UKITKd:).' -.xll,l|.retlb:|l,' ' ,,l I .1 1 .Intla: 13); 
MKITKC '.MAU(x| i. I| .re, >| I ,l| .la): 16: 1 J) 
ENO ; 
WRITKUN 
END ; Uaatcaurlercraosfora) 



BKtlN IPaaC Puurler Tnnatura HAIN pru|jroa block! 

Input tunct Ion ; 

laateourler t 

output result 
l-NU . Il J«( l.i'.rlcHuii. t l.m) 



Tha uutput i •-■•..iU -I ot the above pruijria: 



0.000OO00U0OU00 

-U.UL7t>BU2b04tiJb 

-0.03I2674»0B96 

-0.0)79243>7()266 

-0.0368810666167 

-0.02V»28t>252bl6 

'O.OIB792I70IOI2 

-O.OOB047696l24'r 

U.OVOOOOuOOOUOO 

0.(1040728620283 

O.OU»47144i4597 

0.0026^(11116226 

O.OOU34B3620I47 

-0.O01O11382I255 

-(I. (1 01 IS03b8b8ll5 

-O.U004yf9jmSI 

U.OOOIKHlilOOIRlOO 

•0.UOO6B9/I8O522 

-O.U02B324092745 

-0.0059170626257 

-0.0088045510772 

-0.0101962197958 

-O.0O9I69452386I 

-0.0055S29379150 

0.U0U4000000U00 

0.0062442184426 

0.01 17611058688 

0.0153826090980 

O.OI64660202973 

0.0149524532b82 

O.OII244678I57B 

0.0060076679 793 



Thal'i all 1 



u 


(I. 1 2 5UUOMI9U0UUV 


1 


O.II8B005392517 


2 


O.IOI6473329239 


3 


O.O774319305146 


4 


0.0513166843014 


5 


0.O28237O310966 


6 


0.0115891562643 


1 


U.UH252lll < rlVIH4 


B 


O.OOOOOOOOOOOUO 


t 


O.OOI56467t774l 


IU 


0.0O4J9467638O2 


II 


O.U063II75526B27 


12 


O.UUb32779U6382 


13 


0.0046979300314 


14 


O.OU2426M44H96 


15 


O.OO063422I659I 


lb 


O.UOUUUOUI 100000 


17 


O.UO052O99 10183 


IB 


O.OOI6 342907008 


19 


0.0025840754294 


20 


0.0028251224447 


21 


O.UO22660453856 


11 


O.OOI25556850B9 


■a 


0.00035UOI 18804 


24 


o.ooooooooooooo 


25 


O.OUU3226473IBI 


26 


0.0010664250095 


27 


O.OOI7716962935 


28 


0.OO20304025945 


29 


O.OOI70377852BO 


30 


O.O0O986035696I 


31 


O.OO02867I88465 



0.I250OOOU0OUUO 
0.120108*494440 
0.I063477O34934 
U. 06622O41II5B89 
0.063I9505647IB 
0.04OB5669633I3 
O.Q220783b49764 
0.OO8433O763545 
U.0U000U000O000 
0.0O4363O751504 
U. 006269 52988 5 5 
O.O06B358271955 
O.UU6337372519B 
0.0048I4I4072B5 
0.0026853102266 
U. 0007834376275 
0.OO0UOO0000000 
O.OU08b4374l27/ 
U. 00327008 3B510 
0.0064567078253 
0.OO924669868 1 1 
0.0104449834147 
U. 0092 550 1 536 15 
0,0055639579262 
0.00*0000000000 
O.0O625254870O4 
O.0II8093553405 
0. 0154843007726 
0.0165907311209 
0.0150492099464 
0.01 12678276593 
O.OD6UI45U59852 
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MCfcoBCllAB IlKClA-CMir MCQ 
1I0OCI0 UUM 920 II LOU QOABTTTltS 
ADST1R, TttAB. RAT 11, 11*6... TH* Microcomputer Op*r«tlo« of 

Motorola's Hlcroprocaeeor Product! Croup ha a reduced tH« price 
of th* moat hLghly-iot*gr*t*d. • log I*- chip ilcrocnpu tar produced 
Is u) tathnoloty-' tlw HCbJVCtlAl" to Sl».« for 1000 alnl^ 
order «,u*atltlea. locr*ae*d *«{owt Ion and high vol'uanre K*** 
cosblMd to yltld thle «ort coil tfftctivt aolutlom. 
In addition, a vtralon n( the HCfcBHCIlAa 1» available that vontaine 

th* MirPALO Hon liar tail In*" th* MC*.nHCI IAHr*Ml . Th* BUFFALO 

(lit Unr Past Friendly Aid to Logical Op* rat ion* > Program 
coaaun lea tee via the HC«S)0 Asynchronous Cosesunlcat loca Interface 
Ad apt a r < ACIA) Ik vie* and tha MCU Sari a I Commun icat Ion a Interface 
(SCI). 

til* Htn andule of th* BUFFALO ftoflUor progrea includes all th* 
paria required by any of the individual; command modules. Thui, 
tha uln rwdula la a kernel of tha flUFFAi.0 Monitor program and 
cone lets of the five following partai Inltlalliatlon, Command 
Interpreter. 1/0 Routine*. Utility Subroutine!, end Comae nd T«ble. 
Tha MC6BHC I lAB t ■ manuf ac lured using * unique combination of 
HCMOS and ECPBOM technologies, offering- the eon coat effective 
■yst*a level bo Julian *u«tlabl*. Oti-thtp mmmoty syiteat Include 
an ax byte ROM. 51? bytee of KPIOM, and 2Jb byte* of static 
KAN, Th* Inclusion of ft Pi 0M allows field end factory calibrations 
to b* aiorad on the chip. 

Highly aaphli t Leafed i on-chip peripheral functions feature en 
•Ight-ehannel . B-blt anetog-to-dlgl tel converter. an enhanced 
■at of aerlel parte, tleir functions, and parallel porta uith 
full l.arduare capacity. Th* HCftftHCllAa alio provides *n 8- bit 
Pulse Accumulator Circuit, ae v* 1 1 at a Computer Operating Properly 

(COP) Watchdog System. 

Providing htghly eophl it Icated on-chip peripheral functions, 

lov-pow*r consumption, high nol»# immunity. *«4 hlgh-apeed 

DP* rat Ion. the MC68MC11A& has experienced •noreoul market 

acceptance since Hi Introduction 4Q BA . Significant deelgn-lna 

■ panning alt Urktt segment* ere rasping Into production. The 

gOMless verilon of the MCfcaHCllAB la ilia avellable at even lower 

prlcea In production quantities. 

rCTQtAA MDXaUfCVS TO HCblHCBl IA7 M I Cttl4JVU 1 91 

WITH UHAHCIb USRI EKl'KfJh 

Austlo, Tesao, May 12, 1W4... Providing 2K bytee of uaer EIPRCM, 

Motorola Nlc rocosrpu ter Oyeracion'e mava at aamma r of the M8BC11 



Feally. th* MC**aCSllA2 microcomputer (NtUj. la deeigned 

apacillcally to f*cllltata uaer iwvila vhl I* retaining uvarall 

flexibility. 

In add I c ion tu Ihr l4rgv E* memory, uhitli will allow field and 

factory callbratlone to be stored on ihv chip, the NCbSHCot 1A? 

HCl/ eleo contelne 25* bytes of RAM. an enhanced lb-bit l l««r 

lyttea with thr** input captures and live output compare functions, 

end *n B-blt pulse *ii umulalor . An cnh-niwd aeynrhtonou* Serial 

Communications Interface (SCI), 4 synchronous Serial Perlpherel 

Interface (SPI), en B-channal D-blt analog- to-d I si tet ( A/D) 

converter , pars I let handshake port a, a boot loader ROM , end Reel 

Ttate Interrupt (RTl) circuitry ere elso provided. 

The MC6BHCAI IA2 HCU utilises en vnhenced HbBOl inet ruction eet 
IBS new opcodes) which includee bit manipulation and 1 6- bit by 
lb-bit divide met ruit lnna r This MCU also features software 

programmable power flavin* podea. (WAIT *nd STOP). 

The fully static design of the HCb8McailA2 allows opsretlon of 

frequencies duwn to dc, further reducing its already low power 

consumption. It la designed to run at e 2.1 MHi bue epeed ecroee 

a -60*C < " *15^"C i ini|N-f mi »rr i jnKir . to drl lv*r ptiwvr tu I software 1 

control capacity in the h*rah*it »nvtrjn*tnL. 

Available for ■sapling now, the HC6AHCB11A2 1« initially priced 

In the $12* range for low quentitiee. Mr. Brian F. Wllkle, th* 

Product Manager far th* H6BHC11 r.mily, et*te«i "Th* Mi'tiHHLBlU; 

would *mp*ri*nc* th* e*skt iitrp leernlnf curve ee ti being, en joy*d 

by Us R0H- Based relet ive the MCbBHCllAB. So. prlcee ehould 

fall quickly." 

MoBBCUKVg 

K* ' HC 
AUSTIN. TTXA9. KAT 12. 1984. .. Motorola 1 a receotly introduced 

H*BBCll«Vfl I* en avaluotlon board for i he nc&BKll alngl*-chip 

NCO- Th* tTl allows tb* user to covasun Icate an*) control tbe 

board from * taoeioel vl* e U232~C loterfeca, whlla holplog 

thes b*coam> aware of 1 ho b*a*flta ol UPI0M oo HCO'a. 

Tha noni tor f*iturei * Lin* Jtatnbli-f fd taJaesaibJer . * trace 

feature, multiple breakpoint letting, duwn lumd lomindi, nenory 

end register displaying end endlfylng, end a ueer help coeaund. 

By connecting the EVB to a ter get syecea, auch as an ISM PC. 

the uaer n«y emulate the MC6BHC1 1 In the single chip aode o( 

operation. Together the aaaeabler and the IV8 provide e very 

econoalcal aeeni of writing, downloading and debugging uier co4e , 

end evaluating target eystem perforsance, Th* hoard awjy elno 

be uead as a atend alone controller, auch ■> In a distributed 

network proceeelng syetea. 

The CvB le ewe liable through authorised Motorola Dlalrlbutors 



for 5Ua.il. Hov***r. TWO 



HtBVClirvis are oww available 



at Diatrlbtotore at a epoclel sale price of SbB. 11 wltb coupe*. 
Coupone ere available through local Motorola Sale* Offices, 
authorised Motorola Distributors, and currant Jidvert t eeaente ■ 
Tor sort information, contact your local Motorola Distributor. 
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Motorola's I/O Channel Modules 
Supported by MUSTANG-020- 



The DATA-COMP MUSTANG-020 Super 
microcomputer has added another popular and imponant 
method of data acquisition, to its long list of 
accomplishments. Available within the very near future will 
be an adaptor module (from DATA-COMP) to interface with 
the super efficient I/O handlers known as Motorola Channel 
Modules. 

Basically they provide the following features: 
I. 12-bit address bus 
2. 8-bit bidirectional bus 

3. Asynchronous operations 

4. Up to 2-megabyte transfer rate 

5. Four interrupt lines 

6. Reset line 

7. 4-Mhz free tunning clock line 

OBJECTIVES... 

The I/O specifications define an interface system 
between the 'slave' devices and a primary system 
(MUSTANG-020. etc.). What this means to most of us is 
this: we now have available a 'standardized' bus, 
allowing practically unlimited expansion capability of the 
MUSTANG-OX (Euro-bus, 64 pin ribbon cable, etc). 

The Motorola specifications define a communications 
path through which the 'core' system can communicate with 
"addon" I/O devices. 

a. A core' system may perform hi-speed read and write 
operations with a slave device without disturbing any other 
slaves or its internal activities. 

b. Specifies the electrical and mechanical constraints 
upon the design of master and slave units. 

c. Specifies protocols that define the master slave 
relationship. 

d. Provides terminology and definitions describing I/O 
channel operations. 

THE BUS... 

Typically the bus can be a 64 pin ribbon cable, with 
lengths up to 12 feet common. Various I/O devices are cable 
clamped (crimped) directly to the ribbon cable and inserted into 
tetainer cabinets, head first See figure 1-1. 

A subsystem slave has two SO pin ribbon cables on its 
interface system. It has its own power supply (as must longer 
tuns of ribbon bus cable). It provides access to an internal 
terminator board allowing it to configure as the last slave on 
the system. See figure 1.2. 

All data transfers depend on two interlocked signal 

lines - STB and XACK. STB is generated by the master and 
staits a data transfer. The XACK is generated by the addressed 
slave as an acknowledge signal. More detailed information 
may be secured from Mototola. Inc. 



SOME TYPICAL Modules- 
Serial & parallel I/O Module MVME400: 
Dual channel RS-232 communications module. Full duplex, 
sync/async baud rates of SO to 19.2 KB. Configurable for 
terminal or modem operation. 

Dual 16-bit parallel I/O Bus Module 
MVME410: Centronics compatible interface for printer 
applications. Four (4) 8-bit/2-handshake bit (40 lines). 

SASI Bus I/O interface Module MVME420: 
SA400 type disk controller. 

Magnetic Tape Adaptor Module 
MVME435A: Buffered 1/2" 9-track 4K bit FIFO buffer 
interface. Controls four (4) 2S/12Sips tape drives in start/stop 
mode. 

A/D & D/A conversion modules: 12-bit 
conversion. 8/16 differential/single-ended channels. Four (4) 
full scale input ranges of O.S, IS, or 10 volts. Accepts 
additional inputs of up to five (S) MVME601 Expander Input 
Modules. 

A/D Input expansion module MVME601: 
designed to be used with the item above - MVME600. 

12-bit D/A conversion module MVME605: 
four (4) channels of 12-bit D/A conversion. Five (5) voltage 
rangers, 0-0.5,0-10, ±2.5. ±10.0 volts. Two (2) current loop 
output ranges of 4 ma to 20 ma and 10 ma to 50 ma. 

A/C input module MVME610: monitors the 
status of up to eight (8) 120/240 VAC sources. Max input is 
300 VAC. Max isolation rating is 2500 VAC. 

A/C output module MVME61S: Zero crossover 
switching. Switches eight (8) independent outputs of 120/240 
VAC. Max current switching is 3 Amp RMS. 

MVME616: same as MVME616 but without zero 
crossover switching. 

DC input I/O module MVME620: Eight (8) 
input channels for 10-60 VDC signal monitoring. 2500 volt 
input isolation. Input overvoltage and transient protection. 

D/C output module MVME625: eight (8) 10-60 
VDC output channels. 2500 volt input isolation. Inductive 
load transient suppression. Overcurrent protection of 2 amp 
max. 

As you can see this expands the capabilities of the 
MUSTANG-020 vastly. As Motorola expands its I/O Channel 
Modules catalog, more devices will be available for the 
MUSTANG-020. This and other advanced features make the 
MUSTANG-020 a system that will be a world-leader, not 
only for price but super efficiency and utility, for years to 
come. You can depend on DATA-COMP to be out 
front in the "leading-edge" race. 

Ordering information. I/O Channel Module Bd. 

PRICE: $195.95 

Direct from DATA-COMP 
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FIGURE J-l, Typical I/O Channel Conf juration 
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FIGURE 1-2. Alternate fever Wiring Configuration 
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SYsTOlS CORPORATION 



NIOKMASX PLAYS K£Y *OL£ IN NE» CD-BOW ST*J©AW> 

DfS MOINBS. IOWA — Two electronice industry giants hava 

announced a revolutionary new CD-RO** standard Incorporating 

technology davalopad by Mlcrowere System Corporation. Phlllpa 

M.v. of Tha Metherlende and Sony corporation of Tokyo* Japan hava 

unvallad a naw typa of compact disc capabla of holding not oniy 

hi-fi aound but video plcturaa and computer data «a wall. 

Tha naw product, called -compact Dlec Interactive Media" 

("CO-l">, heralda a naw m in entertainment, education and 
alactronle pjfc::shir,q. Baaed on the abell., aturdy, ultra high 
fidelity compact diet which ia currently eweaplng tha audio 
world, CD-I adda natural picturaa and Interactive capabllltiee. 
Thle will open the wey for an Important new method of 
dletrlbuting information. Some poeelbl 1 itiae ere talking 
encyclopediaa. dictionaries, toitbooka, electronic magatlnea and 
catalogs, it wall aa eicitlng new entertainment titlea auch aa 
"■uaic video" atyle preeentationa. aonga with worda and computer 
games with life-like realism. Thla naw technology may also offer 
other poeeibllltlee aa yet unlmaglned. 

The interactive aapact of the madia ia sepecially 
aignlflcant aa It allow* th* uaar to rapidly locate information 
and eoauunicate with tha highly Intelligent CD-I player. The 
baelc player le aa aaay to hook up and operate aa a video 
ceaeette recorder, plua It can be optionally eapandad to a full- 
feature paraonal computer. The new CD-I playere are completely 
compatible with all current CO digital audio dlaca and the 
etendardlaad format aaeuree that any diec can be uaad with any 
player. 

CD-I diaca are alao distinguished by their enormoue atorege 
capacity. each Ineipenelve diac la capable of holding over 650 
million charactere of data. Thla translates to over 1$0<000 
printed pagaa of teat or up to 20 hours playing time of speech 
quality aound. 

Phlllpa and Sony originally co-developed the CO digital 
audio format which waa first marketed In 1902. Because the new 
CD-I madia relies heavily on advanced eoftwere technology, 
Phlllpa and Sony invited Hlcroware to participate In the CD-I 
development program. nlcrovare contributed lte epaclel 
eapertiee in the creation of the control eoftware for the 
mlcrocoerpu ter-baaad CD-I player and the information storage 
format for tha dlece. 

Co-I playara are beeed on the 68000 family mLcroprocaeaor 
plua naw specialised LSI components developed by Philips and 
Sony, Including audio and video co-proceaaora. The software la 
beted on the kernel of Mlcroware'e Ofi-9/68000 operating eyetem 
plue a newly developed CD-I file manager which le tailored to the 
epeclal characterlatlce of the read-only media. For eaample. It 
allows any file to be opened with only one access even though the 
file system can have many levels of directories. 

The Mlcrowara-developad system software package alao fully 
supports the multiple audio and vldao format* Including mixed 
data typaa within a single file. Video display capabllltiee 
include both natural plcturae (delta yctv} and bit-plans graphlca 
IRCB and color lookup table) In normal <36*H by 200V) and high 



July '86 



'68* Micro Journal 



resolution [7*IK by **<rV) sodas, rour digital Audio quality 
livtli range fro» ultra hlgh-f Idellty to high grade speech, this 
allows soft war* dssleners to aalact audio and vldao quality 
levels which optimise storage requirements end playing tie** for 

ctu Mtsrlsl to oe presented. 

It la expected that «*ny «i)or consumer alactronlca and 
personal coaputer aanuf acturtra will obtain Licenses to 
■anufacture CO-I playara. The basic playar softwsre will be 
included in tha Mater llcanaaa laauad by Philips end Sony. 
Manufacturers stay obtain llcenaea directly from Microvace for the 
optional extanalone which upgrade a bealc pleyer to a full- 
feature personal costputsr configuration. 

Oft- 4 le e aodular. rsal-tlsw/stultl tasking operating eystso 
for coeputara baaad on tha 60000 family of aicroprocaoeora. It 
la eoapact, ROHebla end provldee e Bnis-atyle environment for 
application aoftwara. since ite introduction in 1983* O8-9/G8000 
has been licensed to over 200 OtK* for u*e in a wide variety of 
industrial, scientific *nd conauavar products. Soots of these 
product* include personal costputsrs» industrial control systtu r 
data processing equipment end teleca— MOicetione ayataava. 

rounded in 1*77, Mlcrowara specialise in the developawnc of 
advenced 68000 fasti ly opersting systems snd prograaming 
isnguagea. Microware'e offlcea are located In Oes Holnea. lows 
and Tokyo. Japan. 
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MICRO CONTROLS LTD. 
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08 HJt ro Journa 1 
CdKnanitra Smith ftond 



Mcssr 
5900 
Hi isoa 

Tenneanee 37343 
U.S. A 



Dear Slr/s, 



Let «e Lake I h i n opportunity to thank you for providing en 
Invaluable service to the bSXX Coaaunity. which ttust b« 
unparalleled In the industry. 

Due to the recent article on disk I nt er 1 eav 1 or „ I was able 
to speed up 1 he disk read on two machines by a factor of 
3* As a result the Machines are auth lore pleanant to use, 
not to eention the t lae savings? 



Kindly send ae the following: 

flex user notes with 5" disk 
Reader service die* - 19 
Foreign Air S/H 



US 



$20.90 
SI 2. 50 
1 7.00 

S40.60 



Enclosed la a draft for the above amount. 



Toura n i nc er e I y . 
MICRO CONTROLS 17D 
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MICRQNICS 



Mk-(nr(tmpuim Hjrd.areandSolii.are 
C.IKtlV S»lo. SeHKrtndStlPtKM 



JJJXJLVNNAVNfJUt. 
ABtJOTSFORO. 
BKITISHCDI UMBIA. 
IANAI)*. V1S162 



Dear Ooo, 



Rotking at all to do with ay atrial 11 XBAIIC - jaat a 
follow-ap to tha raceot diacaaalona oa tba euhject of 
re-executing tba leat-antered rlXZ coeaund (withoet 
re-leeding tba cowaund it.. If), rirat, Jos Lariaere'a 
fix baa a t ypo , Id that tba lioi 'ADD! I' abauld read 
ADD! '2, otherwlee tba pointer la going ta get huaped 
by tba cnoteote of ■•■or j-1 act loo 2, inatead of hy 
tba ouihir 2. J|o»over, thara ia a Buck neater and 
■ora coapect A ***»klck involve* a ckaege to oalj 9 
kyte* of 6809 rt.Il ta Bake a aiogle key , LP <Lioe- 
Feed), do exactly tba ••■• thing . Make tka folloviag 
ckengea I- 



Addraie CE7B 



FBOK 

86 0D 

ib cr»i 

It 20 
20 C9 



TO 
ID CD27 Cat icit char 

2P r» laptat if alpha 

IE 9F CC1E Jump to coaaaad 



k farther eehanceaeot, vhiih sill alaa tia ia with tba 
above aod, iovolvee changleg 3 •or. byte* io FLU, aad 
huroiot a aaiall roatloa iato year KOBlTOB'a EPIC*. 
Tbia will add a *B coaaaad , whlth will r*-call tka 
latt aotarad eoaaiaDd-1 isa vttkaaax aakpaauilat 11. Tka 
coanasd-llaa will ka raaallad fioa tka enrraat caraor- 
poaltioa tol r IO that if, for ioataaca job 
accidentally aotarad 

DOPT l.riUMMl.TXT 2 .FILBHiKI.AW 
laataad of 'COPT', PLEX would coat hack with a 'HOT 
P0DBD' ■•••a(*. Tou would than typa 'C , followed by 
"B, which would recall the caaaaad- 1 ioe frow the 
aacond latter onwarda. k final eatry of CI would 
cauaa the line te be executed. Bow auppoae yon waetad 
to repeat tka line, tkla time aending tke file to 
DriT. 3 ioatced of 1, yon vonld ooter 'I to recell tke 
line, thea curaor-left (or BaCISPACt) over the '2'. 
type a 'J' to overlay it, and then anether "I to 
recall the line ooce mora fran tkla caaT«anr>-p**it laat 
•axearwe. Tou now have a choice of entering LP (to 
execnta the line without reloading the COPT ccemaod) 
or CI (ta re-loed COPT, aad tbeo execute). Ona 
importaot point to note 1* that with the LP option THE 
lEBCTn OP THE COtOCAIB-LIBl MUST HOT BE CBAMCED, aa yon 
will not be eoterisg esotbar CI to indicate "End-of- 
Conwand*. Anyway, here are the cheogea ta PLEX, 
followed by the cede to barn inta EPSON (or locate in 
aoeia out-of-the-way apot in nnaory) :- 



Addreaa C«* 



FROK 
Bl CCOl 



TO 
7E xxxx Jump to routine 



BCU 1JFTO EP10H 



Addraaa xxxx 81 12 
27 0C 

* 81 02 
27 II 

» 81 05 

26 14 
30 01 
20 0D 

11 At 10 
81 0D 

27 0} 
ID CDU 
20 P> 

R2 30 IP 
♦ BJ 7E CE31 
R4 Bl CCOl 



"B7 
Yei. 
Bo. 
Tea, 

No. 
Bo. 



Co to Bl 
Curaor-leftT 

Coto 12 
Curaor-rightf 
Co to 14 



Bbift right io Line-Buffer 

aod braoch to B3 

Cet char from Buffer 

CB7 

Tea. Co to 13 

Bo. Diaplay tbia char 

and hack for next ckar 

Shift left in Line-Buffer 

Back tn JCE31 io PLEX 

DEL char7 
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10 27 D»JF Yea 
7E CEJ9 Mo. 



Branch ti JCI56 in FLEX 
Co to SCE39 in FLEX 



* Change to eult your Cunor-Contral codee 

* The REX addreeeae ara relative to SCE34. Change 
to auit your vera Ion of PLIJt. Tfaa code DB5F in 
the laat-but-one tine aaaumea that thn routine ia 
burned in at etarting-eddreee IF200. Adjuat thia 
to auit your location! I 

The epar which prodded ■• Into developing the above 
routioea >n provided by an early atteapt by Barry 
Cuthrie (of Rhodea C, Grahaaatovo. Republic of South 
Africa) to iapleaaat recall and iamediate ezection of 
a coaaand-line with "R, but which, unfortunately, 
required that the coavjand-line be correctly entarad in 
the firat place, aa hia routine prevented FLD froti 
eeeiog a BACKSPACE . Thua an entry of CAR (oopa), »S, 
T would be aeen by FLEX aa CART, although the acreen 
display would reaposd correctly end ahow CAT. Thank 
you, tarry, for itirring aa into actiool 

Sincerely, 



u 

I. Jonea 
Preaident 



previous line may be called by line number and edited or 
a line number itself may be changed (this duplicates the 
line to the second line number). An "express cursor" 
makes appending to the end ot a line a snap. 

BAS-EDIT is a nice addition to an already excellent 
BASIC and AFFIX is so cleverly done that it could very 
well be used as inspiration tor anyone writing programs 
that must be installed on a variety of terminals. 



Art Weller 

NOTE: BAS-EDIT is available trom S.E. 
their advertising elsewhere in this issue. 

Limited Time) 
SAVE $30.00 
SPECIAL ONLY $39.95 



MEDIA. See 
The price: 



Mi 



Compiler Products Unlimited Inc. 
6712 £ Presidio 
Scott&dafa, Arizona 85264 
(602)991-1657 



BAS-EDIT 

All Flex users know that TSC BASICs are among the 
best interpreters available, and even compiler users 
find that it's frequently the quickest solution to some 
programming problems. We also know that it has an 
irritating quirk that begins with the fact that it only 
has a line editor and errors must be fixed by completely 
re-typing the line. Most get around this by using a 
separate editor to type in the lines of a program, after 
which another difficulty crops up - BASIC (or XBASIC) 
will only load down to (but not including) the line with 
the error. So the game is: load BASIC, load program, 
find last line loaded, exit, load editor and program, 
fix error(s), then re-cycle. Well, this must have 
bothered John Roberts enough to do something about it 
and BAS-EDIT is the result. 

BAS-EDIT comes with a well thought out AFFIX.CMD 
that is used to tailor BAS-EDIT to the terminal with 
which it will be used. (Note that I didn't say 
"install" or "modify" -- this is different). It 
includes a large variety of terminal (VDU) specific 
files and if yours is among these, it is only necessary 
to enter its name in response to a prompt. Otherwise 
AFFIX will ask for a set of terminal command sequences 
and then a set of control key inputs. AFFIX then 
renames the original BASIC.CMD to .OLD and creates a new 
one. 

The new BASIC can be used exactly as the old one 
was -- in fact it has not been modified except for the 
cold start entry point. But it now has a small program 
at $5000 that checks the command fine for the BAS-EDIT 
option. That is, "BASIC +E (.program namel. With this 
option, BAS-EDIT proceeds to install itself and then 
relocates to high memory. Thus, no memory is used 
unless the editor function is actually needed. 

Operation from this point is simple. A program may 
be entered in the usual way until an error is reported. 
Striking the "edit" key (say "") causes the line just 
entered to be recalled and it may now be edited using 
right/left cursor controls, insert/delete characters, or 
overlayed with new data; exiting with a CR. Also, any 



1 HE GAME MACHINE™ is an adventure 

game generator which runs from simple 
user-prepared game scripts. An example game is 
supplied which is an adventure that takes place in 
an old mansion. To help the beginner, a map of the 
mansion is also provided. Game commands are the 
usual MOVE commands (six directions), plus 
TAKE, DROP, LOOK, HAVE, and several other 
commands. Each scene or room' may be 
described with up to 1000 characters, and up to 500 
articles may be distributed through the rooms. The 
maximum number of articles the player may cany is 
programmable by the game designer. The game 
designer may program entrance requirements for 
any room, so that the player must be carrying a 
certain article before he can enter the room. THE 
GAME MACHINE allows the game designer to 
provide a custom instruction panel which is 
displayed to the player at startup, and may be 
re-displayed on command. THE GAME 
MACHINE uses virtual memory techniques, thus 
allowing very large games to be contructed. For a 
DSDD 5 inch disk, 350 scenes (rooms) may be 
constructed, and even more if the size of each room 
description is less than the 1000 character 
maximum. No programming ability is required to 
build your own personalized adventure game. 
Instructions for using THE GAME MACHINE are 
supplied on disk, with the MACHINE and the 
example game. 

Price is $15, supplied on SSSD Flex 
formatted disk, no copy protection. 
Compiler Products Unlimited, Inc. 6712 
E. Presidio. Scottsdale, AZ 85254. Visa 
& M/C welcome. 
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STRIDE MICRO 

660 South Rock Blvd. 

Rano, KV 69520 

fdward Chapin (702) 322-6860 

Siaifli M ICRO t!t-fl)£R Qlfi£CTIO H Q£ tiSti ££Q 



RGHO. Nev., April 28, 1966 - Stride Micro, the four year- 
old 66000-baaed auparaicrocomputer ayataaa Manufacturer formerly 
known aa Saga Computer, enter" a new pheae of corporate planning 
and development with the appointment of Prealdent and CEO, Edward 
0. Chapin. 

Mr . Chapin munii the leeponaibi lit lea of Rod Coleman, 
Corner prealdent and founder of Sage Computer who la now devoting 
full attention at Stride to the development of new products ache- 
dulad for introduction later thla year, it waa the technological 
expertiee and lnalght of Mr. Cole-nan and two other Stride engi- 
neers, Bill Bonhea and Bob Needhao. that led to the 1982 intro- 
duction of the SAGE II - one of the flrat microcomputers based an 
Motorola 'a MC68000 aicroproceesor chip. 

With a broad range of management , reaearch and atrategic 

planning eaperlence in a variety of technical flelda. Kr. Chapin 

brlnga to Stride the combined corporate/technology/marketing 

perspective needed to manage the coapany'e growth. 

As Prealdent and CEO of Kinder International, * technlrally- 

orlented retail photography coapany vlth outlets throughout the 
United Stataa and Canada, Mr, Chapin built the operation Into a 
$100 all lion a year coapany over four yeara. Prior to thla, he 
waa Aaaoclete Ciractor with the Unlvaraity of California auper- 
vleifiq a aulti-dlaclpllned eclentlflc ataff In reaearch and deve- 
lopment pro]ecta. In 1978, Mr, Chapin waa appointed by the United 
Stat re Secretary of Defenae as chairman of the technology evalua- 
tion committee whoa a recovaeendatlona foraad the baali for the 
Prealdent'a "Strategic Defenae Initiative (SOI) Prograa," 

Beeding up Strida'a aarketlng and aalea dlvlaione under Mr. 
Chapin are Rhine Heyerlng, vice prealdent of aarketlng and dome- 
tic aalaa and Rick Krles, vice prealdent of international opera- 
tions, Mr. Meyerlng waa previously vice prealdent of aarketlng 
and aalaa at Xrgo Syataae Inc. and TTJC Inc., director of ealea at 
North Star Coaputar and weatern regional aalea manager at Quae . 
Kr. Kriaa aarved aa vice prealdent of finence end operatlona at 
OSAGA, inc. and prealdent of Fenaa, Inc. prior to Jolnlns Stride 
in 1982, 

According to Mr. Chapin, Stride will maintain ita current 
dlatrlbutlon network through VAfta and OGHa, empheeixing the 
outetandlng prlca/perforaance benefit* afforded by the Stride 
aeries. He aald the coapany 'a 1986 plana call for aeveral 
new product introductlona, a aaOn-to-be-announced modified 
pricing progrea and a renewed edvertlelng/aarketing aupport 

caapalgn. 

Since ita Inception in January 1982, Stride Micro hea deve- 
loped, manufactured end delivered conelatently auperior high 
ctifocnenca auparalcrocoaputar ayatama ranging froa a alngle ueer 
ayatem with up to 2 Mbytes of RAM to a 16-ueer ayatea with 12 
Nbytaa of RAH and 448 Mbytes of dlak capacity. Kumeroue operating 
ayataaa Including UNIX (ta) Syetem V, p-Syetea, RM/COS, CP/N-68R, 
Idrie, poos, BOB, ralPOa, FourByterorth, Mirage and SI are avai- 
lable for the Stride series. In addition. Stride Micro offera a 
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Unfortunately, Mr. Gross* program, as 
published, did not yield the same results as 
the standard DFT for the trial 12. 5V. pulse 
data. Comparing Mr. Gross* algorithm with 
the algorithm as published in 1969 by Uhricn, 
I discovered two errata: 

1, The first line of the "1" loop (on 
page 45> has the sign for an inverse Fourier 
transform: it should read 

W := -2«pi/N; 

for the forward transform: 

2. The formulae for calculating the "M" 
term arm not correct; since the 
multiplication is complex, there should be 
four multiplications overall. The code 
should read: 

M.re :• x C 1 , C3 . reicom- 

x [ 1 , C3 . lmtslnw; 
M.im !. x [ 1 , C] . retslnw* 

xE 1 , Cl . imtcoswj 

A couple of other Improvements which are 
easy to implement, and improve the 
performance of the algorithm are: 

1. Moving the "W" assignment statement 
outside of all the loops, since it only needs 
to be calculated oncti 

2. If the algorithm is being 
Implemented in C, using the bit shift 
operators (>> and <<> to perform the power of 
two calculations. The p2 ( > function can be 
rewritten as the macroi 

• define p2<x> ( (x ) ? (2<< ( (x > - 1 ) ) : 1 1 

3. Taking advantage of previous 
calculations, by changing the following 
variable assignments! 
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riplact D with ln2j globally; 
C i- 8 ♦ <N DJV P2(J> > | 
E I- fl + (N DIV 2)| 

By defining another variable for (N DIV 
P2(J>), even more tpaajd can be obtained. 
Running an efficient coding of the algorithm 
on a 16 MHZ 66020 with a 68881 for floating 
point should yield mom* really lnprmiva 
benchmarks. 

Slnctnly , 
Russell N. Van Bolder 
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I have recently laplnaenled the printer spooler on By rXfcX 
eyetea, And to b9 dtenppoln taent , 1 found that It was not 
reliable. Kroe Viae to Mb* ay printer would repeat a cha- 
racter a nueber or Usee. 

1 traced It doan io my printer, ahlch obvlouMy wm level - 
aenslllve to the date strobe Troa the ayntea. 
Hoe, tr the llaer interupta thn "pooling teak Just ehen the SYMBOL TilP.E 
printer routine hnn net the .lain ntrobe \im. It eill reaein r-cjar CC08 
loe for about 10 aS, thua foollnc aj printer to think that PO.'f CCE4 
characters are atl 11 coalng tn. The encioned listing of 
ay printer drlvere ahoan hoe to fix thle problea by dtn- 
abllag lnterupta during generation of the datn ntrobe. 
At the anae tiae 1 akao fiieil the problea of having the 
printer hanging after proaeln* the ny^tea rerat ( an re- 
ported by Rob Anderaon (?) In chapter J , p. lh of tbe FLEX 
ll.:KK hMTKJ). Thin IB lue In the ma) Iff unlng the llrv« flnK 
In the bcVl PIA ■« printer ready. 

•hen the printer has accepted a character, It outputa an 
nTR etrobe ehlch in turn aetn the IKijA flag, then you nra 
preen the ayntea reeet, you will ntno reitet the ^IA by the 
harivare , clearing the 11WA Megan.) thereby Indicating 
printer MOT RLAuT , althourh It j_h rewly. 

1 fined title by letting the printer Initialisation routine 
output one null character, ehlch elll be Ignored by the 
printer, but alao eCHnoeln lxe 1 with nn AfTK ntrobe, thun 
■ettlng the IkWA flax. 
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Think you for the replacement of the Dec. 83 lilui you font 
■i. Finally 1 found tn opportunity to contribute 

totthoa to your Journal tnd iptdilly to tht oantri of tht 
Coapicta UNIBOARD. I at reporting In thlt latter a 

'Hardaere design 1116 in tht Unlgotrd and tht corrttpondig 
f Ik to it. 
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Until todty I ha*t bought tao o< thttt boardt altn Flu 
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aanaga at thlt unlvtrtlty. 
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ntctitary changti to tht IN IT aodult, tlnct thtn I uit tht 

•trial port (6331 1 . Htrt coatt tht annoying bug'. 

Hhtntwtr you try to lilt' or dlr' flltt, tht ttrtlnal 

gtt a tuck tnd liter a ahllt It thoat up alth ERROR #246' 

(devlca not rtttfy). Thlt probltt dota not ltt you run 

prograat that uit both tht ttrtlnal and disk drlvtt at 

tht mi tlat. 

I'vt arltttn ttvtral tlati to ttie people of Cotptcta, tt 

utual thtrt trt of no htlp, thty'vt ntvtr tntatrtd a 

letter. 
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cyclt btfort tht 6119 trlti to rttd tht SR (Btttut 
Rtgltttr, IEF41I of tht 6351, at thtt vtry tottnt tht 
addrtat llnti trt valid, but tvtn tht all? It In a aalt 
ttatt tht 6331 rtctlvtt a falling tdgt pultt, to clearing 
tht Inttrrupt bit of tht SR. Reaioni tht 6331, phl2 
(271 it conntcttd to a frit running I Nht clock lntttad to 
tht ttrttchtd E clock". Maa ahtn tin aalt ttatt 
flnlthtt tnd tht 6119 ii going to do itt lait cyclt 
(rtadlng tht SRI It tncounttrt alth a SR thoalng thtt no 
Inttrrupt lont aai rtquttttd. Tht 6819 »ho n polling 
dtvictt at tht inttrrupt ttblt (Ifilll), flndt no IRQ 
rtqutlt frot tny dtvlct. Thlt produce! tht 
Interruption of any prograta thtt una 6331-6844 and 
finally tndlng alth tht image ERROR 1246. 
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6843(U2B,23) 



tract of ph 1 2 

and toldtr a MM 



Htrt Ii tht Fll you thould 

bttattn 6322IU19.23) tnS 

ctblt frot 74LSS8(U2S,11I to 6322(1119,231 or 6Ii31 (U12.27I . 

Thlt probltt tuggtit thtt tht 6322 Ii alio requiring thlt 

eodiMcatlon ll Inttrrupt drlvtn. 
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Prof, 6»t4 Holihikar, 

Apdo. Corrtot 1 J°3, 

narlda 3111. VENEZUELA. 

Cleat-brook Software Group Inc. 

US 44fiM»rr*iOrt Slrwr.P.O.BoJt *ft>0-4M h S^m**. WA VA?B&-U0O 

CLEARHOOX SOPTHARI CROUP 

IbTOBKATIOM MANAGEMENT SKSTIM 

TECHNICAL UPOATE 



Sob* uitrd of CSC INS hivi raportad problaaa whan trying to 
coiplli proqrtaa with aany (ion tban 201 labalti Nora 
labalf ara uaad In varslon 1.2 of tha scrim for* progrt* 
generator to allow backward noviatnt through tha f.alds 

To aalve this problaa, you will naad to call tha coapllar 
<Ik«C) dlraetly iron tha 0B9i proapt lar salactlon 9 ol tha 
CSC INS aiacutlva) and paaa ion addlttlonal pir«Mt*r«- 
(You cannot paa* astra piraaatara tron tha Ui •(■cutlvi 
Mnu valaCtlan S. ) Tha -t*M option ol tha coapllar will 
allocato additional pa?** < 246 bytaa) of aaaory for tha 
l«bal tabla 

0S9:laac cuatfara -t-12 

Tha above Una will allooata 3R of aaaory for tha label 
table Anothar option <-■•*) will allooata aora aaaory lor 
tha aspraaalon Hack. Ha hava not anccuntafad a situation 
whara tha jt»ck ha« bain too ■■ult. 

Varclon 1.3 of tha coapllar will hava aora Initial Maory 
allocated lor tha labal tabla. 
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Aldus' PageMaker* Named 

"Best New Use of a Computer" 

by the Software Publishers Association 

SAN FRANCISCO. California (April 18. 1986)— Aldus 

Corpora lion's PageMaker*, a desktop publishing program, was 

honored as "The Best New Use of a Computer" by the Software 

Publishers Association (SPA) at its Spring Symposium. The SPA is a 

trade association that represent* cveiy major segment of the 

microcomputer software indusay. 

"We are delighted to be recognized by our peers," said Paul Braincrd, 

president of Aldus Corporation. Braincrd, who coined the term 

"desktop publishing," addad. "We are especially pleased that 

PageMaker was cited as the best new use of a computer. PageMaker 

and the advent of affordable graphics -oriented microcomputers and 

sophisticated laser technology gave binh to the desktop publishing 

revolution." 

Available at a suggested retail price of $495, PageMaker (for the 

Macintosh) helps useis create, edit, design and produce lypesel-qualiiy. 



camaa-icady art for all types of publications. It has been used to 

create memos, reports, adverri somen ts, brochures, newsletters and 

even tabloid-size newspapers. A version for the IBM-PC is now being 

developed 

PageMaker, which sparked the desktop publishing i evolution, is 

widely recognized as the leading desktop publishing product in the 

U.S. as well as abroad. It has been translated inn eight languages and 

is sold around the world through authorized distributors and dealeis. 

Aldus Corporation, headquartered in Seattle, Washington, was formed 

in 1984 to develop, mailed and suppou desktop publishing. The 

company is located at 41 1 Firs) Avenue South. Seattle. WA 98104, 

telephone (206) 622-5500. 




Classifieds 



3 



Winchester 10 Megabyte Drives 

Two (2) 10 Megabyte Hard-Disk Winchester Drives Working - were 

removed for upgrade to larger drives. 

1 - RMS Model 1509 $275.00 

1 - Seagate Model *412 $275.00 

(615) 842-4600 Tom 9-5 EST. 

LSI 68008 CPU card, "C" Compiler and Digital Research 
CPM/68K $350. 

Tans Outpost II, 56K, 2 5"DSDD Drives, FLEX, MUMPS $595. 

MICROKEY Single Board Computer, Target 128K RAM. FLEX, 
FORTH, with optional 6502 CPU & ROMS as advertised on p. 51 DEC. 
84 68' Micro journal. $1800. 

l.IT-69 complete with Dual 5" DSDD Disk System and Controller, 
includes FLEX DOS. $745. 

TELETYPE Model 43 PRINTER - wilh serial (RS232) interface 
and full ASCII keyboard. $359.00 ready to run. 

SWTPC S/09 with Motorola I2SK RAM, 1-MPS2, 
1-Parallel Port, MP-09 CPU Card $1290. 

1-CDSI 20 Met; Hard Disk System with Controller $1000. 

(615) 842-4600 M-F 9 AM to 5 PM EST 



68008 HARD DISK SYSTEM - COMPLETE 

512K 68008 system, 10 megabyte hard disk. Xebec 1410A HD 

controller, 80 track double side, double density (loppy. Complete with 

cabinet/power supply. Taken in on Mustang-020 trade-in. Version 1.2 

OS-9, Basic09, Stylo, Mail Merge, Spelling Checker, Dynacalc - like 

new - original puce $2,900.00 range (advertised) - SPECIAL - ONLY 

$1750.00. 

615 842-4600 - Data Comp, ask for Dan or Tom. 
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fMNTEA blank Data Systems 68 boards. Men Gordon, M.D. 1435 
W. 49th Place. Ilialeah FL 33012 (305) 822-1100 



For Sale: Complete working 6809 system. 64KB memory, 
video boaid, ZVMI21 monitor, keyboard, pair 96171 DSDD floppies 
(1.3MB capacity each), EPROM programmer, serial & parallel pons, 
clock/calendar, heavy-duty switching power supply. Professionally 
built from Data Systems 68 boards, new components. With much 
software, documentation, unpopulated modem and 256KB memory 
tarda. $500 CASH and CARRY. Bob Boyd, RR1 Box 575, 
Kennebunkpon. Maine 04046. 207-967-5563. 



$400; S/09 chassis with power supply $100; Chassis with 24V supply 
for 5-inch and Winchester $100; Uniflex software included: Basic, 
Pascal, C, Dynacalc, Stylo, Spell, Calculator, USE, Utilities I&2, 
Diagnostics. Complete setup $7000 or make ofler on hems, call 
801-224-52S2-ext.l28 ask for Vem. 



MICROUOX II single board computer kit (unassembled). 
Includes bare board firmware eprom and utility disk, construction and 
operating notes, firmware source on disk and small "C" compiler 
w/7220a graphic libraries. A $319.00 value for $225.00. Joe 
Condon, 8101 Alpine Diive, Des Moines, Iowa 50322. (SIS) 
278-4581. 



Cimix G68 Controller $400; Heath 1119 ANSI terminal $400; SWTP 
Chassis and PS $100; MP09B CPU $75; MF68 Disk Cabinet a, id PS 
$60 MPR EPROM Burner $75; 2Mhz 64K Static Ram $7Sea, DS68 
CPU $60 DS68 64K DRam $60, DS68 DMA disk controller $100, Dual 
Acia w/Baud Rate Gen $100, Acorn 168K Prom Board $75, Acorn 
Rom/Ram Board $75 Thomas PIA Board $30, Misc SS50 and SS30 
proto boards $25, disk drives S50 ea (813) 961-7320 



COMPACTA Ifnlboard, w/FLF.X and OS-9, I 40TK DSDD, 
1-80IX DSDD, Monitor, Keyboard, Power Supply, Quality Software, 
Manuals. $450 obo. (619) 569-4064. 



SWTPC St, SI2K, DMF3 controller, 6 MPS 4 serial pons 
$3500. DAMP 2 8-inch disk system $1000; CDS-2 40 Meg with 
controller $2000; S/09. 384K, S-MPS-2 serial. I-MPL-2 parallel, 
DMF2 controller, DAMF-2, 8-inch disk system $2000; 8212 terminal 



6809 SINGLE BOARD COMPUTER 

The PT69-5 is an upgraded version of the standard PT69 
board— a unique system unbeatable for its price, size, 
and power. It runs at twice the speed with extra features 
unavailable on more expensive systems. 

• 2 MHZ 6809 Processor 
' Floppy Disk Controller 

• Port for Winchester Interface 

' 4 RS-232 Serial Ports, 2 8-bit Parallel Ports 
' Up to 60K RAM using 32K x8 CMOS Static 

• Up to 8K Eprom (4K Standard) 

' Optional Software: OX/9 or SK'OOS 



$450 




$450 



Call or write for more details! 



PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd. Suite 870 

Marietta. GA 30067 

4O4/S84-0742 Telex # 880584 

VISA/MASTERCARD/CHECK/COD 

-OS-fl » ■ fridtmvt of Mic«owar« a Motorola 






6809<>68XXX 
UniFLEX 

X-TALK 

A C-MODEM/I lardware Hookup 



Exclusive for the MUSTANG 020 running UrdrLEX, 
is a new transfer program and cable set from DATA-COMP 
(CPD. X-TALK consist of 2 disks and a special cable, Uus 
hook-up enables a 6809 SWTPC UniFLEX computer to pop: 
UruFLEX files directly to a 68XXX UniH^X system 

This is the only currenly available method to 
transfer files, text or otheiwise, from a 6809 UniFLEX 
system to a 68000 UniFLEX system, that we have seen A 
must if you want to recompile or cross assemble your old 
(and valuable) source files to nut on a 68000 UoiFLEX 
system. GIMDC users on directly transfer Tile* between a 
6809 GIMDC system and our MUSTANG-020 68020 system, 
or GIMDC 68020 system. All SWTPC users must use some 
son of method other than direct disk transfer. The 6809 
SWTPC UniFLEX disk forma is not readaUe by most other 
68000 type systems, 

The cable is specially prepared with internal 
connections to match the non- standard SWTPC SO/9 DB2S 
ccmnsun. A special SWPFC+ cable and soltware is also 
available, at the same price. Orders must specify which type 
SWTPC 6809 UniFLEX system they intend to transfer fiom 
or to. 

The X-TALK software is furnished on two disks. One 
8" disk containing the 6809 soltware and one S" disk 
containing the 68XXX software. These ptogiams are also 
complete MODEM programs and can be used as such, 
including X-on X-off, and all the other features you would 
expect from a full modem program. 

X-TALK can be purchased with/without the special 
cables, however, litis SPECIAL price is available only to 
registered MUSTANG-020 owners. 

X-TALK, w/cable $ 99.95 

X-TALK only $ 69.95 

X-TALK w/source $149.95 

DATA-COMP 

5900 Cassandra Smi!h Rd. 
Hixson, TN 37343 

Telephone 61 5 842^4601 
Telex 510 600-6630 







Note: Registered MUSTANG-020 owners musl furnish 
system serial number in order to buy at these special low 

iCGS, 
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OS-9" 
User Notes 



By: Peter Dibble 

The publishers of 68' Micro Journal arc proud Co stake 

available Che publication of freer Dibbles 

0S9 UStt BOTtS 

Information far the BEGUTNER to c be P»0, 
tegular or CoCo 0S9 

Using 0S9 

HELP, HINTS, PROBLEMS, REVIEWS. SUCCESTIONS. COKPl-AINTS, 

0S9 STANDARDS, CeneraclnR a New Bootstrap, Building a 

new System Disk, 0S9 Users Group, etc. 

Program Interfacing to 0S9 

DEVICE DESCRIPTORS, PI RECTORIES, "FORKS", PROTECTION'. 
"SUSPEND STATE", "FIFES'. "INPUT/OUTPl T SYSTEM", etc. 

Programming languages 

Assembly Language Programs and Interfacing; Bas(c09, C, 
Pascal, and Cobol reviews, programs, and uses; etc. 

Malta Include 
■e typing all the Source Listings In. Source Code and, 
where applicable, assembled or compiled Operating 
Progress. The Source and the Discussions in the 
Coluens can be uaed "aa Is", or as a "Starting Point* 
for developing roar OWN more powerful ProRrams. 
Programa aometlmes use multiple Languages such as a 
short Assembly Language Routine for readlnR s 
Directory, which is Chen "piped" to a Basic09 Routine 
for output formatting, etc. 



BOOK S9.95 

Typeset -- w/ Source Listings 

O-Hole Punched; 8 x 11) 

Deluxe Binder --. -SS.S» 



All Source Listings on Disk 

1-8" SS, SD Disk - SU.95 

2-5" SS, DD Disks S24.95 




FLEX™ 
USER NOTES 

By: Ronald Anderson 

The publishers of 68 MICRO JOURNAL are proud to 
ake available the publication of Ron Anderson's FIZZ 
OSIB MOTES, In book form. This popular monthly colueoi 
been a regular feature In 68' MICRO JOURNAL SINCE 
1979. It haa earned the respect of thousands of 
68 MICRO JOURNAL readera over the years. In fsct, 
's column haa been deacrlbed aa the 'Bible' for 68XX 
users, by some of the world's leading microprocessor 
professionals. The most needed end popular 68XX book 
available. Over the years Ron's column haa been one of 
the most popular In 68 MICRO JOURNAL. And of courae 
68 MICRO JOURNAL Is the moat popular 68XX magatlne 
published. 

Listed below sre a few of the TEXT files Included In the 
book and on diskette. 

All TEXT hies in the book are on Ihe disks 

LOGOC1 File load program (0 oltsel memory — ASM PlC 

MEMOVE C1 Memory move program — ASM PIC 

DUMP C1 Pnnlet dump program — uses LOGO — ASM PIC 

SUBTEST C1 Simulation ol 6800 code to 6809. show differences — ASM 

TERMEM C2 Modem input 10 disk (or Other port input (0 Otsk) — ASM 

M C2 Output a lile to modem (o< another port) — ASM 

PRINT C3 Parallel (enhanced) printer driver — ASM 

MODEM C2 1TL output to CRT and modem (or other port) — ASM 

SCIPKG C1 Scientific math routines — PASCAL 

U C4 Minimonilor. disk resident many useful (unctions — ASM 

PRINT C4 Parallel printer drivel, without PFl AG — ASM 

SET C5 Set printer modes — ASM 

SETBASl C5 Set printer modes — A.BASIC 

NOTE: .C1..C2, etc . -Chapter I, Chapter 2, etc. 

••Over JO TEXT filea Included ia ASM (assembler 1-PASCAL- 
PIC (position Independent code) TSC BASIC-C, etc. 

Book only: $7.95 + $2.50 S/H 
With disk: 5." $20.90 + $2.50 S/H 
With disk: 8" $22.90 + $2.50 S/H 



Shipping A Handling Si 30 per Book. $2 SO per Disk set 

foreign Orders Add $4.50 Suffice Mail 

or $7 00 Air Mail 

If prying by check . PIcjk allow 4-6 weeks delivery 

* All Currency in U.S. Dollars 

Continually Updated In 68 Micro Journal Monthly 

Computer Publishing Inc. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 



"FLfcX Is a trademark of Technical Systems Consultants 

**0S9 Is a trademark of Mlcroware and Motorola 

"68' Micro Journal la a trademark of Computer Publishing Inc. 



(615) 842-4601 

Telex 5106006630 
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OS-9 UniFLEX 

MUSTANG-020, 68020, 68881 AND MORE 

HANDS-ON EXPERIENCE 




The DATA-Comp Division of Computer Publishing Corporation announces their new and 
innovative HANDS-ON 68020 computer familiarization two day event. A chance to TRY 
BEFORE YOU BUY! 

For two full days (Monday through Friday - excluding legal holidays) each participant will 
be furnished the exclusive use of a 68020 computer (MUSTANG-020). Each system will 
have available native C compilers, BASIC, assembler and other high level languages. Each 
system will be equipped with the Motorola MC 68881 math co-processor, where 
applicable. 

Each demonstration room will contain not more than two work stations. Each system will 
be equipped with floppy disk, 20 megabyte Winchester technology hard disk, and 2 
megabyte of RAM. RAM is partitioned as 690K bytes of RAM disk and 1.2 megabyte of 
user RAM space. 

Participants are encouraged to bring along any source level projects, for evaluation, in C, 
BASIC or assembler. Call for availibilily of other HHLs. 

Although this is not a training seminar. Data-Comp personnel are available for assistance 
and consultation. This event is scheduled for hands-on evaluations of the 68020 CPU, 
68881 math co-processor and MUSTANG-020 system, operating in a functional 
environment. 

Transportation to and from the airport and hotel/motel will be provided. Lunch provided 
both days. Chattanooga airport is serviced by American, Delta, Republic and other airlines. 




COST 

One person - $375.00 
Two persons - $595.00 



• Motel single $22.00. double $26.00 
Includes satellite TV - convenient to food and shopping 




DATA-COMP 

A Division of 
Computer Publishing, Inc. 

5900 Cassandra Smith Road 
Hixson.Tn 37343 
Telephone 61 5 842-4600 
Telex 510 600-6630 



Systems available for both OS-9 and UniFLEX. Reservation should be made I? days in 
advance. Attendee should initially indicate OS-9. UniFLEX or both. Special facilities 
available on request. Please write or call for additional information. 

NOTE; Both OS-9 and UniFLEX are Unix type operating systems. Each as been enhanced 
in some aspect or another. Prospective attendees should have some working knowledge or 
experience with one of these operating systems, to gain full benefit of ihe session. 
However, a newcomer will find that it is a simple mailer in be fairly proficient in using these 
systems in the allocated time. Special system instruction available on request. Call or 
write. 

J * Hotel/Motel cost are separate cost, not included in the basic cost shown. 
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511K RAM 
Expansion 



Compact 
flexible 

6809 

Computer t 

The new ST Z900 ayalem - a compiele 64K small business Of hooorisi eoniputer a 

It only one ol tie many possible configurations. Among lis lest urn we 1 

e Small enough to hold *n your hand! (Curocard slae 39*Kfln 

Three DoeirJ "eyalenV for greater volatility than single board computers £ 

e CPU Board - powerlul 6809E PWesSOf. UK Or MK RAM. IK 32K EPROM, I 

2 RS23? sensl porta with sollware programmable baud rales. 16 tMt court. $ 

terminer Run theCPU board all by ilseit orplug your own custom board orour 2 

FDC board en(Vo» RAM 512 board Inlo the expansion connector 

e FOC Board - Ooubie-sirJMVOoubleaansily floppy disk controller with adjust. { 

ment nee digital data separator and write Precnmpensatlon. 2 3-bil parallel f 

ports. 2 16-bll eountorriimorS. prototyping aree 

e ftAatSlt (eetd - 524.268 bytes ol RAM on a 4 15" « 8 T t»a,di Low power i 

Includes RAM Disk software lot FLEXJSTAR DOS or OS-9. • 

e PltX, ITAH.OOI, BndO».9 supported •otlwara •electable. ^ 

e OS-9 Conversion PaCHagalela youuse ihe low cosl Radio ShacK CoCo version E 

or OS* on our ST JSOOsysiem Save 4131 oti ihe suggested ml price ol OS-9 1 | 

Ne erosjrenvulne la i»»oi»ed. Supporta CoCo OS 9. standard OS 9 and £ 

MI2AR 0SM8K dish toamais Compatible with PCHFEn lo let you v 

reaeVartlerfervnet MS oos eiiSs! I 

• CPUbareboerdplusEPROM 145 OSOCon.erslon Package J4» \ 
F DC bare board IX FtSxConvertron Package 129 \ 
RAM412Daa,<JA»T|-r»«A»t] 9*99 CPU ♦ FOC .OS-9 Conversion 1119 <- 

CPU ♦FOCooardselassemoledandteated 1329 S 

• Add IS shlpolngJhandling ($10 orerseasl Trreae prices are in U S funds. | 
Canadian orders call of wrile tor prices Terma check, money otder VISA « 

CVwewwvt rrtejl . ItwwflSn— 'rra p — ,*»«» QB>S w**tj**t*AUWoror* VS-CCS - Ucrhvh 

/} j/- fv is. i ' Can o" write tai Iree estate* 

)S >Akl>l> sisss-'-" 
W TC<HiMOLOOIC< 

2261 E 1ilh Ave Vancouver. BC Canada V5N iZ7 



Hard Disk Subsystem 
for SS-50 Computers 

This proven subsystem adds hard disk speed and storage 
capacity lo yotir computer ycl requires only one SS-30 slot. 
Software (with source) is included for your choice of FLEX9*, 
CJS.9* Uvel I or Uvd II, or OS-9 68K operating 
systems.. l>e software honors all operating system 

conventions. Ihe software is designed for Ihe Xebec S1410 
controller inlctfacing to any hard disk diive that conforms to Ihe 
ST506 standard Four subsystems are available: 
I) 27 MB (formatted) WREN' hard disk. Xebec SUIOA 
contiollcr. SS-30 interface cant, all cables, and software for 
52850; 

73 MO (fomiallDd) Tandoe TM-603 hatd disk, re si 
same as above for $695; 

No Hard Disk , rest same as above for S600, and 

S-30 inieiface card and software for $200. 

paice* include shipping. We acacpt Visa and Mastercard 
without adding a surcharge. Texas residents must add sales tax. 
The subsystem may be mounted within your computer chassis or 
in a separate enclosure with power supply. Please write or 
phone (include your day and evening phone numbers) for more 
infoTTTDlioa. We will return North Ameiica calls so that any 
detailed answers will be at ourexpensn. 



2) 

3) 
*> 
All 



P.O.Boi9S02-845 
Austin. Ten as 71766 



m 

♦••(512)244-6350 ♦♦♦ 



PLBX h a mdmurk ofTKBokjl strurm Oasninio, inc 
* OA9 Is ■ rnocnaii of Mknsnrt aatl Maoris 
WMN ■ • aeaaaas i of anna Ml Capenuae 



pawn 

I^viiaJ 



Clearbrook Software Group 



W>6<^VWWW><VWx* 



mm 



s 




Information 



System 




Some notable features include: 

- General purpose database manager. 

- Menu-driven front end. 

- Comprehenaive ipplicitiom language. 

- Uier definable acreen forma. 

- Interactive ad-hoc query environment. 

- Uier definable report forma and 
report generator. 

- Data base program generator. 

CSC IMS for OS9/6809 Lll i* $193. 
Introductory price until June 30. 1986 

ia $395 

A run-time package for user-developed 

and distributed applications is $100. 

CSG IMS will be available for OS9/68000 and 
OS9/6S09 LI in the second quarter of 1986. 



mmmm,m 




Other CSG Products: 

Libr - tbla ia an object librarian, designed 
to create, inspect and maintain modules 
and libraries. For uae with Mlcroware s 
C compiler and RMA assembler. 

For OS9/6809: $50 

Tx - is a genersj purpose text editor, and 
ho features making it auitable for program 
creation and editing. It is the same editor 
which is included with CSG IMS. 
Pot OS9/6S09 (soon for OS9/6S000): $30 



For inform ation or orders, write: 
Clearbrook Software Croup 
446 Harrison Street 
PO Box 8000-199 
Sumaa. WA USA 98293-8000 
Telephone: (604)853-9118 
Dealer inquiries welcome. 



North American orders sdd $5 for shipping. 
Fo reign orders sdd $10 for shippin g. 

OS9 is a registered trademark of 
Mlcroware and Motorola 
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SK DOS 

(formerly called STAR-DOS) 
is now available for both 

68000 and 6809 

computers. The same great DOS, but now 
better than ever, with enhancements which 
make it ideal for 6809 users moving to the 
68000 / 68008 / 68010 / 68020. Available off- 
the-shelf now for the Emerald ESB-land ESB- 
II computers, (others soon), and for licensing 
to OEMS at attractive terms. Single copies to 
end users are $75 (6809 version) and $125 
(68K version). Configuration Manual (optional 
at $50) gives full details on adapting to new 
systems, supplied FREE to SK*DOS/68K pur- 
chasers until Sept. 1 . Adapt SK*DOS to a new 
system and receive a royalty on your adapta- 
tion! Call us at 914-241-0287 for more in- 
formation. 



^ lurrrii 

Ms 



^ARjSjTS Box 209 Mt. (Cisco NY 10549 



ANDERSON COMPUTER 
CONSULTANTS 

Ron Anderson, respected author and columnist 
for 68' Micro Journal announces the Anderson 
Computer Consultants & Associates, a 
consulting firm dealing primarily in 68XX(X) software 
design. Our wide experience in designing 6809 
based control systems for machine tools is now 
available on a consultation basis. 

Our experience includes programming machine 
control functions, signal analysis, multi-axis seivo 
control (CNC) and general software design and 
development. We have extensive experience in 
instrumentation and analysis of specialized 
software. We support all popular languages 
pertaining to the 6809 and other 68XX(X) 
processors. 

If you are a manufacturer of a control or measuring 
package that you believe could benefit from 
efficient software, write or call Ron Anderson. The 
fact is that any calculation you can do with a pencil 
and paper, can be done much better with a 
microcomputer. We will be happy to review your 
problem and offer a modern, state-of-the-art 
microcomputer solution. We can do the entire job 
orwork with yoursoftware or hardware engineers. 

3540 Sturbridge Court 
Ann Arbor, Ml 48105 



= 



^ t Inatallad SYamnaWotM-WMa 

OVEH 1 YFAH5 OF OEDICAtIO QUALITY I 



'i A Otvithm of 

Computer Publishing, Inc. 
5900 Cuiidr ■ Snath Road 
Iliison.Tn 37343 
Telephone 61 5 642-4600 
Telex 510 600-6630 



DATA-COMP 
SPECIAL 
Heavy Duty Power Supplies 

For A limited time we are offering our HEAVY DUTY SWITCHING 
POWER SUPPLY. These are BRAND NEW units and will not last 
long. Also note that these prices are less than 1/4 the normal price 
for these high quality unit. 




Size I0J * 5 x 15 ttCAC* - dirhrtmg beavy oownint 
tncfca nJ anoint. 

Rmhi; in I1W220 ntic («raj> chant*) Out 130 mat 

Output «5v - 10 aaajB 
, I2v - 4.0 amfB 
• l>.10«nmi 
-12v-0lS tnr» 



Mont Cauoaar Tannmal «*> 

Load Riwrtirev A uksBate abort treat majvwj 

Back 

SPECIAL: $59.95 
2 or more 49.95 

Add: $7 SO eacJi SIM 



Mule: BoaJam 

Sac 10.7] i «,2 > 125 uxboa 

Rjusi: 110/220 k (nap chaop) Out S! wam 

Output »Sv ■ 10 anas 
*12v .14 aopa 
.|2v-14anfa 
.12V-2.I aapt 
-12» ■ 04 onpa 



Matiof Oraoan Motex 

Load Kodka.' Automat* thort Sou mu™y 

Eaab 
SPECIAL: $49.95 
2 OR MORE 39.9S 



Add; 17.50 S/Ue«h 
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DISKETTES & SERVICES 

5 25" DISKETTES 
EACH 10-PACK S12.50-SSSD/SSDD/DSDD 
nt«<«miH»i I iarL9*Ut.»<r\TY*ki>cUtx. n±> rlnga. and t 



AOOmOMAL SERVICES FOR THE COMPUTING COMMUNITY 
CUSTOMIZED PROGRAMMING 

«<«»«< Q^m«»»')'0'l^» >"V | a o w ul*O riff»»JivysaTgT nr in our 
baotn tor apaaatrad aatorw w« to oovar now pra 
to juoti oomaii rMpma upon** rnarfcaansr ol tna n 

CONTRACT PROGRAMMING 

«n> w« cntft new prog/ arm or mnoVfy among uiya"a on a am0 but, 

tlta WS ha>» provvkKJ (Or (Ml MA/ >•»*. »» ODrnjU « OTI *r*d> w» 

riav* (Mna] aDTVBjrs J* iv»iiTw^ kioljrjs mast papAs' nuMa ot 
mairfeimaa. reiutv^ IBM. Buneur/it, Untvat. Honvyvat. mac pog>4a< 
rnvaara ol i wmni fl, Induing dec. 8M. DG. H>. ATsT. and mod 
popula r Brands d rwonoi^ul fa. rxjujno BaOOVI. 6809. ZBO, 6502, 
flBCOO. uer^ rnoat qavtpnaia tevaoai andivaaiiM aysanm, ortiyttma 
rwiprig in Wa torn lafga Kciilli uXj»ralia arxsa Board owcaars. 
m* t*«uo» ror convaci programming o umjafy by »w fvour or by tno task 

CONSULTING 
m ollar a mob langa ol businau and lactate*) coroutng aervtes. ttbxtrq 

♦eminarj.advtan, uarntng. and 0r«v. on any topic ralatod to pompvtaa : 
fw chtin> tor consul wo la normally buod upon jrrw. rnjv* and o«pens«s. 



Computer Systems Consullanta, Inc. 

1454 Latta Lane, Conyers. GA 30207 

Telephone 404-483-4570 or 1717 

Wa take orders at any time, hut plan 
long discussions alter 6. It passible. 

Contact us about catalog, dealer, discounts, and ssrvlces. 
Most programs In source: give computer, OS, disk size. 
25% oft multiple purchases of seme program on one order. 
VISA and MASTER CARD accepted; US funds only, please. 
Add GA Mies Us <lf In GA) end SX shipping. 

(l»«|r=Y£X «»T«oV«* 3y»J»>» Coautam: 05? it uu .i.COCO TjidytgtXB Ifcarf 



SOFTWARE FOR 680x AND MSDOS 



SUPER SLEUTH OSASSE MBLERS 
EACH »9»-FLEX $10t-OS'S $100 UNIFLEX 
OBJECT-ONLY versions: EACH tSO-FLEX O&S.COCO 
rtwac1w*fy ganarat* tourca on dak vwtn labart. *Y*jda xr*r. bmanr sdring 
tpacrty 6800.1 ,2 3.S a 9«502 varum or £808080 .5 verwn 
OS.3 varson alio prooaaaat FLO lormat oOj»a <ia undar OS.S 
COCO DOS avadatki in8800.1.J.3 5 8.4*50? vmit (not ZBOvSOBOS) onry 

CROSS ASSEMBLERS (REAL ASSEMBLERS, NOT MACRO SETS) 
EACH *50 FLEX.OS'B,UNIFLEX.MSDOS ANY 3 $100 ALL $200 
tpacily lor lW.8502MOl.eeW M05.6^W.a.a8O.e04B.8O51.rWt}5.B800O 
mooV«/cro«»-as>»TtaWi in C. >>^ td*oV\irirMd uHrrw and macros NOW; os.*68K 
8-bn (noi 88000, unjirm for •dorwnar SSOaacH J10Olo> 3. S300 tar al 

DEBUGGING SIMULATORS FOR POPULAR 6-BIT MICROPROCESSORS 
EACH S75-FLEX »100-OS/9 »B0 UNIFLEX 
OBJECT.ONLY varalona: EACH S90-COCO FLEX.COCO OSr» 
irrnr*i»v*iy»»nulalaP«»*uor«. njuo* oammr**, tawmm, Orwy odtmrj 

ipaofr tor eaoon. < uiseos. esoz, seos osvs, zso flex 

ASSEMBLER CODE TRANSLATORS FOR 6502, 6800/1, 6809 

6502 10 6809 S75-FLEX IBS-OS'S S60-UNIFIEX 

8690V1 10 8S09 S 6609 l» peanien-md S50-FLEX J7S.OS/9 J60-UNIFLEX 

FULL-SCREEN XBASIC PROGRAMS wllh cursor control 
AVAILABLE FOR FLEX, UNIFLEX, AND MSDOS 

OrSPLAVOENERATOfVOCCuMENTOR *50 •/HXrta. t» without 

MAILING L 1ST SY ST EM II 00 waoure*. t$0 without 

INVENTOflY WITH MRP 1100 nrVsoures. W0 nrlthout 

TABULA RA&A SPREADSHEET J10O »»ourn>, *50 wttftOUt 

DISK AND XBASIC UTILmf PROGRAM LIBRARY 
SS0FLEX *30-UNIFLEX/MSDOS 

odd dtttt aactors. son oVactoy, nuanOan rnanr aaaing. do dak Mm. 
nnym aorr* or K ot 8ASC crooran. sal SASC fJBgrari. arc 
norvFLEX vanaona visjoa aon and masaraf orty 



SOFTWARE.. 
* HARDCORE 



" FORTH PROGRAMMING TOOLS from the68XX&X " 
" FORTH specialists — get ihe best!! " 

NOW AVAILABLE — A variety ol rom and disk FORTH systems to 
run on and/or do TARGET COMPILATION lor 

6600. 6301 6801. 6809, 68000. 8060. ZSO 

Write or call lor information on a special system to lit your require- 
ment 

Standard systems available lor these hardware-- 

EPSON HX-20 rom system and target compiler 

6609 rom systems lor SS-50, EXORCISER, STD. ETC. 

COLOR COMPUTER 

6600 6609 FLEX or EXORCISER disk systems 

68000 rom based systems 

68000 CP M-68K disk syslems, MODEL II 12 1 6 

IFORTH is a refined vers on of FORTH Interest Group standard 
FORTH, (aster than FIG-FORTH FORTH is oollr a compiler and 
an interpreter It executes orders ol magnitudes faster than inter- 
pret ve BASIC MORE IMPORTANT, CODE DEVELOPMENT 
AND TESTING is much, much lasler than complied languages 
such OS PASCAL and C II Software DEVELOPMENT COSTS are 
an important concern lor you. you need FORTH' 

lirmFORTH" is lor the programmer who needs to squeeze the 
most tnlo roms. It is a profess onal programmer's tool for compact 
rommable code lor controller applications 

> IFORTH ana MmFORTH ara tradKnami o< Tafhot Ucnqmm 

> FLEX t* a lrao>*nark ol Tocnraca) Syttemt Corm/nami. Vic 
- CP M8BK •» tiaoamark at r>o«a1 Rasaarcn \nc 



tFORTH ? - 

from TALBOT MICROSYSTEMS 
NEW SYSTEMS FOR 
6301/6801. 6809, and 68000 

— IFORTH SYSTEMS — 

For all FLEX systems: GIMIX. SWTP, SSB, or EXORcisor Specify 
5 or 8 Inch diskelte. hardware type, and 6800 or 6809. 

" IFORTH— extended fig FORTH (1 disk) $100 (S 15) 

with fig line editor. 
" IFORTH + — more! (3 5" or 2 8" disks) $250 ($25) 

adds screen editor, assembler, extended data types, utilities. 

fames, and debugging aids. 
RS-80 COLORFORTH— available from The Micro Works 
" lirm FORTH— 6809 only. $350 ($10) 

For target compilations to rommable code. 
Automatically deletes unused code. Includes HOST system 
source and target nucleus source. No royally on targets. Re- 
quires but does not include IFORTH + 
" FORTH PROGRAMMING AIDS — elaborate decompiled 150 

" IFORTH lor HX-20. in 16K roms for expansion unit or replace 
BASIC $170 

" (FORTH 68K lor CP M-68K 8" disk system $290 

Makes Model 16 a super software development system. 

" Nautilus Syslems Cross Compiler 

— Requires. IFORTH + HOST + at least one TARGET: 

— HOST system code (6809 or 68000) $200 

— TARGET source code: 6800- $200. 630 1. 6801— $200 
same plus HX-20 extensions — $300 

6809-5300, 8080/Z60— $200, 68000— $350 

Manuals available separately — pnee in ( ) 
Add $6 system tor shipping. $1 5 for foreign air 



TALBOT MICROSYSTEMS 1927 Cuttis Ave., Redondo Beach, CA 90278 (213) 376 9941 
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Coming Soon! 

68000 products running under FLEX™ 
[ PI_itS-68k (PL/9 for the 68000)"^ 

• Built-in screen editor 

• Built-in source-level debugger 

• Built-in assembler 

• Byte, Integer. Long and Real variables 

• Signed or unsigned variables 

• Single-pass compiler 

• Direct source to object 
•Compiles over 1000 lines/min 

• Requires second processor and any FLEX™ system with a PIA port 




The second processor module (included with the compiler): 

L 



• 10MHz 68008 CPU 
•512K bytes RAM 

• Case and power supply 

• Plugs into Windrush UPROM 

Interface software included: 



Run FLEX™ 

software on the 

68008 



port 



Program loader 

68000 FLEX™ interface package. 



Other Software: 

68000 Assembler 68000 System Monitor 

Programmer's Editor 



For further information, phone or write: 



Worstead Laboratories 
North Walsham 
Norfolk NR28 9SA 
England 

Tel (44) 692 404086 
Telex 975548 WMICRO G 



»(j)yWINDRUSH 



Micro Systems Ltd. 
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OK, PLEASE ENTER MY SUBSCRIPTION 
Bill My: Mastercard O VISA □ 

Caid t) Exp. Date 



For 1 Year 2 Years 


3 Yeais 


Enclosed: $ 




Name 




Street 


City State 


Zip 


My Computer Is: 





Subscription Rates 
U.S.A.: 1 Year $24.50, 2 Years $4250, 3 Years $64.50 
•Foreign Surface: Add $12.00 per Year to USA Price. 
•Foreign Airmail: Add $48.00 per Year to USA Price. 
•Canada & Mexico: Add $9.50 per Year to USA Price. 
•U.S. Currency Cash or Check Drawn on a USA Bank ! 



68 Micro Journal 

3900 Cassandra Smith Rd. 

FOB 849 

Hixson.TN 37343 






Telephone 615 842-4600 
Telex 510 600-6630 




vtsa 



i prDK 



INC. 

Lloyd K)ts a camfxittr tjy»nnig carparutian p/wkSng 
scVrWtre and txjdww products ard arsMng services 

19535 NEQUSAN PO0TUN D. OR 97330 (USA) 

PHONE: (503) 646- 1097 • TELEX: 910 3*0 S445 LLOYD I O 

Neva Product! 

CRASMB" CROSS ASSEMBLER 
NOW AVAILABLE FOR OS9/68000 

LLOYD I/O announces the release of the 
CRASMB 8 Bit Macro Cross Assembler for 
Microware's OS9 disk operating system for 
the 68000 family of microprocessors. In recent 
Increasing demand for the OS9/68000 version 
of CRASMB. LLOYD I/O has translated its four 
year old CRASMB for fhe OS9/6809 and FLEX/ 
6809 to the OS9/68000 environment. 

CRASMB supports assembly language soft- 
ware development for these microprocessors : 
1802. 6502, 6800. 6801. 6303. 6804. 6805. 
6809. 6811. 7MS 7000, 8048/family. 6051/family. 
8080/85. Z8. and the Z80. CRASMB is a full 
featured assembler with macro and condi- 
tional assembly facilities. It generates object 
code using 4 different formats: none. FLEX, 
Motorola S1-S9. and Intel Hex. Another formal 
is available which outputs the source code 
after macro expansion, etc. CRASMB allows 
label (symbols) length to 30 characters and 
has label cross referencing options. 

CRASMB for OS9/68000 is available for $432 
tn US funds only. It may be purchased with 
VISA/MASTERCHARGE cards, checks, US 
money orders, or US government (federal, 
state, etc.) purchase orders. NOTE: please 
add $5 shipping in the USA and use your 
street address for UPS shipments. Add $30 for 
all overseas orders. CRASMB for OS9/6809 
and FLEX/6809 cost $399 plus shipping. 

You may contact Frank Hoffman at LLOYD I/O, 
19535 NE Glisan. Portland, Oregon, 97230. 
Phone: (503) 666-1097. Telex: 910 380 5448, 
answer back: LLOYD I O. Easylink: 62846110. 
See list of distributors below. 



USA: 
England: 

©•fmony 
Auitrollo 
Japan: 
Swmariond 

Smdwi 



VISA. MC COO. CHECKS. ACCFTTO 
ILOVDIC(50J46410»7>, » I MEDIA (BOO 3346*00) 

Wvowoy (0SM 4234 2S). Wmdrvi* (06W 40M»») 

lactft C<jmpu<»( [45 25 299). toll SoAWO W (0*203 « 741| 
Foitl Bodks i laclronit:) | J44 9W) 
MlCfOboordl (04741 22.1741 S**ou [QJ> »32-6O00 
loofl AG (0M 66 27 24) 
M Oimml f Scandinavian AO [918 . I36S9S] 



K-8A9C CO, StABCHana IffJO* UTI/7K 

« TCH OJA»« ana C*V»« *JJ7 am mxkvrxfta of UOiO K> 

Osvtio "o/Mav^m.n£XHo "oftX 
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OS-9™ SOFTWARE 

SDISK— Standard disk driver module allows the use of 
35, 40. or 80 track double sided drives with COCO OS-9 
plus you can read/wrlite/format the OS-9 formats used by 
Other OS-9 systems. $29.95 

SDISK + BOOTFIX— As above plus boot directly from a 
double sided diskette S35.95 

filter KIT #1— Eleven OS-9 utilities for "wild card" direc- 
tory lists, copies, moves, deletes, sorts, etc. Now includes 
disk sector edit utility also. $29 95 ($31.95) 

FILTER KIT *2— Macgen command macro generator 
builds new commands by combining old ones with 
parameter substitution, 10 other utilities. $29.95 ($31.95) 

HACKER'S KIT #1— Disassembler and related utilities 
allow disassembly from memory, file. $24.95 ($26.95) 

PC-XFER UTILITIES —Utilities to read/write and format 
MS-DOS™ diskettes on CoCo under OS-9. Also transfer 
files between RS disk basic and OS-9. $45 (veislon now 
available for SSB level II systems, inquire). 

CCRD 512K RAM DISK CARTRIDGE —Requires RS 
Multipak Interface; with software below creates OS-9 
RAM disk device. $259 

CCRDV OS-9 Driver software for above. $20 

BOLD prices are CoCo OS-9 format disk, other formats 
(In parenthesis) specify format and OS-9 level. All orders 
prepaid orCOO, VISA and MasterCard accepted. Add $1.50 
S&H on prepaid, COD actual charges added. 

SS-50C 

1 MEGABYTE RAM BOARD 

Full megabyte of ram with disable options to suit any 
SS-50 6809 system. High reliability, can replace static ram 
for a fraction of the cost, $699 for 2 Mhz or $799 for 2.25 
Mhz board assembled, tested and fully populated. 

2 MEGABYTE RAM DISK BOARD 
RD2 2 megabyte dedicated ram disk board for SS-50 
systems. Up to 8 boards may be used In one system. 
$1150; OS-9 drivers and test program, $30. 

(Add $6 shipping and insurance, quantity discounts 
aval labia) 

D.P. Johnson, 7655 S.W. Cedarcrest St. 
Portland, O R 97223 (503) 244-8152 

(For best service call between 9-n AM Pacific Time.) 

OS-9 Is i traoemaO ol Mlcimn and Motorola toe 
US-OOS is a Irademai* ol Mtcrosori. Inc 



COMPILER EVALUATION SERVICES 

DY: Ron Anrfrrson 

The S.F.. MEDIA Division of Computer 

Publishing Inc 

Is offering the Mlowuig SUBSCRIBER 

SERVICF.: 

COMPILF.R COMPARISON AND EVALUATION REPORT 

Due to the constant rod rapid updating and enhancement 
of numerous compilers, and the different utility, appeal, 
speed, level of communication, memory usage, etc., of 
diffcicnt compilers, the following services arc now being 
offered with periodic updates. 

This service, with updates, will allow you who arc wary or 
confused by the various claims of compiler vendors, an 
opportunity to review comparisons, commcnls, 
benchmarks, etc., concerning the many different 
compilers on the market, for the 6809 microcomputer. 
Thus the savings could fa/ offset the small cost of this 



Many have purchased compilers and then discovered that 
the particular compiler purchased cither is not ihc most 
efficient for their purposes of docs not contain features 
necessary for their application. Thus the added expense 
of purchasing additional compilcr(s) or not being able to 
fully utilize ihc advantages of high level language 
compilers becomes loo expensive. 

The following COMPILERS arc reviewed initially, more 
will be reviewed, compared and benchmarked as they 
become available to the author 

PASCAL C GSPL WHIMSICAL PL/9 

Initial Subscription - $39.95 

(includes I year updates) 
Updates for 1 year - $14. 50 

S.E. MEDIA - C.P.I. 

5900 Cassandra Smith Rd. 

Hixson, TN 37343 

(615) 842-4601 




68000 68020 68010 
68008 6809 6800 

Write or phone for catalog. 

AAA Chicago Computer Center 

120 Chestnut Lane — Wheeling IL 60090 
(312)459-0450 



Technical Consultation available most weekdays from 4 PM to 6 PM CST 
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A Powerful 

1-2-3 

Combination 



68O10 



, 1 . Stylo-Graph Word Processor 

Stylo-Merge Text Formatter cS$^ 

Stylo-Spell 42,000 Word dictionary 0° 

2. Motorola 68000 Microprocessors 

3. The 68K OS9 Operating System 

All the Stylo programs are written in 68K assembly code making their performance second to none. 

The ability to always see on the screen what your printout will look like saves time and makes 
your work easier. 



Why settle for less than the best? 
Check it out todayl 



Call or write for catalog 
MSA OR WSTERCARD ACCEPTED 



Stylo Software, Inc. 

ro to«9K) Af-Jf. -Jiuel 

OAi O FAUS mAI O 83407 

120"! S?0 3710 



OPI 

Beyond Pascal, C, and ADA® there is a better programming language: V.X I l—> 

An omu«. lasler method of davetop.ru) Ivgh quarny [/©grams a yours Some features Of QPL are: SpBCIQI 

with OPL Tha o a lat^uage ol unmatched power and onv9naer«« • Exact AmtvmKtic — no rounding or truncation f\ff 

which can stimulate your creative abilities Extra wide range (ro axp 1 32000) v/f I Of 

• Unlimited length variable names and strings «% 
OPL,»v.,»etr«:,en.w,lhoulbo,ng terse IrSEASY TO READ & WRITE) . ^^ & |oop ^ „„ ^^ SaVO 

A pr^rarnwime^nP.scarC.toic.o.Cc^cen usually bewnlten . Powerful stnng pr<>cess,,ig corn^s allerniHIon. _„-, 

maboul 70% FEWER LINES ,n OPL The powerful QPL compiler man- concatenatwnTp.tlem matching, and more 50% 

ages the details ol programming allowing you to coneen trale on the „ . , ... ," . „ 

• High eNxaency tile torrnalrjng (etxxil IwtoB 
problem to be solved ^ lfMog j,*,^ # p.^ and g^ |llea) 

kit a™; * Automatic vanabte sueig , no held overflows 

Many ^poUta'tons: m NanvHniJwcltw to easy daia efuwwg 

• Business data processng . Conlormanl arrays hold mixed data types 

• Computer aided instruction games • Compatible with Pascal. Basic. Coboj. Aaaembty 

• Expert systems artificial intelligence . Simple input and output methods & printer control 

• Text processing, encoding decoding • Fasl. ettxaeril compilation 

• High precision math applications • Symbolic tracing lor last de-bug 

• Systems utility programs. 

• Robotics Language brochure with example program ,, FREE 

• Industrial mt7ommpvter applications Demons tr anon do* + mrro-manual SlOOO 

Full 90 page personal or busnesa manual 124 95 

No matter what type ol programming you da. Oft has learurgj deaqned Full manual (pen or bus ) <• demo Oak & binder J3495 

to speed up devekipmen I and reduce matntairance 

Personal System: runs under Flex $295 

Runs lull language, uses smaller desk space MOW $147 
OPL is as easy to team as BASIC, end more powerfu I than Pascal The 

clearly written 90 page manual has over 30 complete example programs Business System: runs under FIbx S69S 

Fasler operation, free run time licence /VOIrV $347 

The OPL compter and run lime library is wnnen in assembler language 

tor maximum speed and minimum apace II includes a linking loader lo Free User s Group Membership with compiler purchase 

rmntmno the final program size 

Visa & Master Cant welcome 

w * aBBaaV Jl Compiler Products Unlimited. Inc. 6712 £. Presidio. Scotisdele. AZ 85254. 16021 9$ J- 1657 
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NODUUJS - BAKE CARDS - I ITS - ASSEMBLED It TESTED 
Btaokabl* Hodulaa KIT AfcT 

30 u« PORR SUPPLY i/tu 

■/Dlak protect relay 390.00 400.00 

DISC CABIRtT »/rega. a ciblli 

laaa DRIVES 300.00 350.00 

<onn boabd, s ss-»0e, s ss-soc 

BUI tattoo 333.00 333.00 

Has Bara KIT ait 

ITS - IRTEIBOPT TtMBR 

1, 10, 100 par aac. 18.83 39. BG 39. 83 
PB4 - INTCLLIGERT PORT BUFFER 

single board eoasut.3fl.9S 114.83 138. BS 
DPI * - Dual PIA parallal port . 

4 buffered I/O* 34. BS 68.85 88.83 

XaDB - Bataadad Addreeelag 

BADD goa. PIA port 38. BS 68.83 SB.BS 
BBS - BOTStB. eOAAD 68-SOe 

•/BAUD geo. 64.85 148. 8S 188. BS 

P16B - 16*1 PROM DISC 

31, 3764 KPBOWa 38. 8S 78. 8S 108.83 

FDSB - Hrajware daralopaaot 

3, BI blocka 38. BB S4.BS 114.85 

xm>R - 3764 PROM tmroar adapt . 

for 3718 BORRBB 18. 8S 

CHERRY Kajboard a/Cablaat 

M key capacities 348.83 

TAXAB 13", IB Mbs HOtllTOR OBBBK 148.83 

AHSRR 1S8.B3 

4 UDOOU CABIBTT - ueftalehed 130.00 

POVBB SUPPLY v/dlek protaet 330.00 

[♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦♦| 

Color Computer 

HOftOLlm - 30 alia Monocbroete 

• Ideo driver 13.00 30.00 

CC30 PORT BUS a/povar aupply 

5 33-30. 3 Cart 1SB.83 188.85 

POBIX BOX 6 avltcbad out late 

truiiiot auppraaaloo 39.93 38.85 

RS-232 S.awltcbad porta 

for above add +30. 00 »33.O0 



Write for FREE Catalog 

ADO SJ.OO StH PC« ORDER 
WIS,. ADD S SALEi TAX 



11931 W. Bluemound Road 
MILWAUKEE. WIS. 53226 
(414) 257-0300 
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Dlek-I Fl leeort , Mlnlcet. Mlnlcopy, Nlnlta*. 

••Llfetlae, ••Poetry, ••Foodllat. "Diet . 
Dlll-I Dlakedlt h/ lnet.4 Mice, Prim*. •Prsod, 

••Snnnpy, "Football. ••Itreliaavt .«•! I letlee- 
Dlak-) Cbu«ll9. Seel, Sec2, Pled, Ta»le2. Intell . 

Dlak-e*p, •Dtakaave. 
Dlek-4 Ma I 1 I or Proxraa, •flnddm. •Ch«n«,, 

•Tealdlak. 
01 SI- 5 'UISKFIX I, •DISKPIX 2. ••LKTTP.X, 

••LOWiXIGK, •••.LACKJAK, ••SIIULIMC. 
Dtak-t "Pur. h««e Order, tndea <01 at lib Inds) 
Dlak-? Linking loader, Rload. KarVneoa 
Dlak-B Crtaat, Lanpber (Nay 82) 
Dlak-* Dataeopy, Dl»kfla9 Uu« B2) 
Mak-IO Hose Accounting (July S2) 
Mak-ll Dlaaeabler (June B*> 
Dlak- 1 2 HodeaaR (gevlaed June *6> 
Dlak-13 •IntmlnS. TCetaie,*, 'Clean, ip, •DaknllHM, 

Main, Uate.Tui 
Dlek-14 »lnU, *Te«t, 'Terminal, «Flnd, •Dlskedll, 

init. Lib 

DIek-15 Hnd.a9 t Update* (live. «• I.'l I r hr l»l ) l„ 

Hodca9 (April 84 Oraaeo) 
Diak-14 Copy.Tkl, Copy. Doc, Cat .Tkt , Cat.Ooc 
CHak-17 Hatch Utility, RATBAS. A aaatc PrepTueeaeor 
Dlak-IS Ferae. Hod, Stte.Ca»l (Sept. AS Arast rnng) , 

CMOCDUK. (Jtll.Tll (Sept. US Spray) 
Dlak-IB Clock, Date. Copy, Cat. PDEL.AaB A line. 

Krrura.Sya, Ik,. loK.Aam 6 Tkiv . 
Dlak-2D UNIX Like Toola (July A Sept. 85 Taylor 4 

r.llchrlat). OreKon.C. Crep.C. LS.C. FDUHP.C 
Dlak-21 Del 1 1 1 tea ( Caaea - Date, 11 <e, Kadneie. 

Touch, Coblin, Starahot, a It aore. 
Dlek-22 Read CPH 4 Non-FLFX Dlaka. Freeer Hay 

1984. 
Dlak-23 ISAM, Indeaed Sequential (tie Aeceaelna 

Nrthoda, Condon Nov. 1985. Fmenathle Table 

Driven Language Recognition Utility, 

Anderaon Hftrch J9H6. 
Dlak-24 68' Micro Journal Indea o( Article! 4 Bit 

Rurkrt Itcaia f rop 1979 - I98V luhn Citrr^nt . 
Dlek-25 KCKMIT (or FLEX derived (rua I he UNIX ver. 

Burg Fee. 1986. (2)-}' Dlaka or (l)-8" Dlak. 
Dlak-26 Coapacta UnlDoard Revlev, Code 4 Dlagraai. 

Burllnaon March 1986. 

NOTE: 

This is a reader service ONLYI No warranty is offered or 
implied, they arc as received by '68' Micro Journal, and 
are for reader convenience ONLY (some MAY include fixes 
or patches}. Also 6800 and 6809 programs arc mixed, as 
each is fairly simple (mostly) lo convert to (he other. 

8" Disk $14.95 5" Disk $12.95 

68' Micro Journal 

5900 Cassandra Smith Rd. Hixson, TN 37343 



a? 

(615,-842-4600 

Telex 5106006630 

♦Indicates 6800 

♦♦Indicates BASIC SVVTPC or TSC 

6809 no Indicator 

Foreign Orders Add $4.50 for Surface Mail 

or $7.00 for Air Mai) 

♦All Currency in U.S. Dollars 
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PT-69 SINGLE BOARD COMPUTER SYSTEMS 
NOW WITH WINCHESTER OR FLOPPY DISK DRIVES 

The proven PT-69 Single Board Computer line 13 expanding' Systems now can be Winchester or lloppy-based Available also in a smaller 
cabinet without drives tot dedicated systems with no mass storage requirements 

• 1 MHZ 6B09E Processor " 2 RS 232 Serial Ports (6850) ' 2 8-bil Parallel Ports (6821) 

* Time-ol-Oay ClocK 




56K RAM 2K/4K EPROM 



Custom Design Inqwtm Wwcome 



2797 Floppy Disk Controller 



wiKl«i« S>««m 

•PT69XT WINCHESTER SYSTEM 

Includes 5 MEG Winchester Drive, 2 40 - trick DS.V* Drives, 
Fknlld Printer Interface ♦ dboior. of OS/9 or STAR-DOS. 




S179S.9S 



$«95.95 



Flow* Sv*tpm 

•PT.«9A ASSEMBLED * TESTED BOARD 

•OS? 

•STAR. DOS 



•PT69S2 FLOPPY SYSTEMS 
Include* PT69 Bowd, 2 DS/DD 40 • TRK 5 1/4" drivel, abuirt, 
rwlknlng pomr mppl j, OS/9 or STAR-DOS. 

PERIPHERAL TECHNOLOGY 

1480 Terrell Mill Rd , Suite 870 

Marietta. Georgia 30067 "Z 

VISA MASTERCARD/CHECK/COO Telex »880S84 404/984-074 2 

"OS9 is a trademark 01 Microware 



$279.00 
$200.00 
$ 50 M 



CALL OR WVTC PC* 400ITI0NAI 
CONFIGURATIONS 




XDMS-IV & 

Data Management System 

XDHB-IV PROCESSING miiiii I 
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XDHB-IU SUPPORT CUHMAHDS 
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tip to 31 flFourt/llfld* p.r f«cartft VI to 12 ch«r«rtvr (!•!■ n«»««' 
Vt 10 1024 trim rvcerv** teP^t-PrvcBts-Owtlut lipoi ckmihi strweturt* 
Vliir/lDHtr («■• ca«««nd«' Ua.r dfllp«J itftfn uio print central 1 

P.nra-- f ll-H Vn»_ lll-.l P - .. 4 . > ■ - _ - I ... i ...___-. 



XUMB-XV D*t* M.n.in.m.nt B^mfr-r^ 

IDHI-I7 Lfl 1 Mafld n#M «piFD4.Ch lo iJtl flIJtrl ■.§■■!■ • A t . It flD( DOly p0f*JI1h 

uun tn dt*cribt r *"l*t ill 'et*-|*vv d«t*. tut lllO IP pret*ea entire 
filea producing eu*l«*fiiT*# r**f>*r ta . tfeen dieplaya and file output. 
Prataaairig t*n cooinl of «n> of * «*t « * etanderd high level function* 
Including record ana field ••lection, eortlng en< aggregation* lookup* 
In other filet, tpeotl pfoeetalng of record aulaata* cweta*. report 
'Of »■! t ln# , tolillnB an<l *ul total lng r am *ra ■epilation of up to three 
related file* ea a *3*tal *•• ' on u*or defined output reparte* 

P-owgRr^i^ CQMMAwnp. 

lOMe'-lV cntttinpt Ih* fuFvctiontiitt of m*ny*mulu Dim toft-nr* lyitem 
wltti a niH ttiy to utt cafAnend tet into I llAflP integrated pidttg*. 
Na*vo Included at*s.y re** feature* end caoaeLMtte including a let of saner*. 
rile utllltlea. The Preceiamg «paeian It ere Iftfut - Pf oce ia ~Qutp jt UFO) 
oriented Mhieh allou>* eleaoet inatant i.Oap^eifevMa.riD* 1 of * Proctftft deeifn. 

BEBSrOM QHIgHTBD' 

IDHeVIV l« tettion Drientv*. Entar 'IDHS* and you »fe in LAalanT ctHHoandi 
of all the faarur**. Ha Mar* Ha.ll.nf for a col* audi lb toad In froe* dlta h 
Many fMi*j*nci« trt inwa diata. ouch aa Cllifl if *l« d e Flni t LoaI p Tj»OaTp 
I'll* ailTar), PVBGE *n| DILITI futLhtlpil. Dlhara ar* pfOCeat commanda 
wrtieh are u*ed to create a i/te* pfeceaa «#hicn $• eiecuted -Ith a *0« 
coeieiand. Illher *«r »■ entereli Into a 'I'ocou' file mKIcI* la eiecuted 
■ y *n IIICOTE ■lalomafit* Precmit ot«y eaecute other precoeeee r or 
tttemeel'iee, eiiher conditionally or unconditionally, Menu a and ecreen 
P'amptl are tulip ;.odij, and an lire uaar appttcatisna cm te run 
Mithtftut ever leaving XDMI-19! 

"'fl EASY XQ UMJat! 

IDHS'.T htdbd data manap#m*n! t>}inpl*' Rathpr tftan dealgn 4 cvetplai DIMI 
which Mclae the :*>■■* npturp of th* e.ti, we hepl IDHI-IT TIL* BriMltd. 
Tup u««r man af data ralat,on«n}p« it praiantpd la faperta and tcftin 
atiiput. Mhlle t^e actual data real lea In eeey to eialntain fllea. Tttle 
atptct pttnile cuataanipd presentation and report* witPiauf coaiplei 
radaflaition of the itiiliu fllea and atrvcture* IDMI-IT mtf ■>• w*«d 
far t •rid* rangi of apptlcdllpnt froaa alaaplp fpctrd Aanageebtnt tyit*ttd 
laddreaaa*. Inventory t>.) to lnt«|rated deteaeee ayaleej* torder entry, 
accountl.*.*;,..!. TN» poaelolll tt ea *rm unlimited.,. 

ZPNI-IV for IHI FLEX. ITil-OOf, tkaOOt) f9" or ft »«O,00.»lH 

Ofd*r my PhDft*! *13-««}-«*If4/<*A| - ITU* and NaitdrCard tcciaddj 
Or writol louth fiaat Media* 5*00 Caaaandra IdHtft. ttiteen. Tenn >TS4l 

WBBTCKEBTBR Appllod luiindll Qyitami 

2 Pea Pond Lane. UrlartliH Manor, K.T. 10910 Tel » 1 *-f * I - IS.Mvtt) 

ncillat Ttcntnl fiilan* CaMtjllafrlt* *Jt*M*lte) TM^ITI Cart. 
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GIT1X 68020 DEVELOPMENT SYSTEM 



A Multi-user, Multi-tasking software development system for use with all 68000 family processors. 




HARDWARE FEATURES 



• The GMX-020 CPU board has: the MC68020 32-bit processor, a 4K 
Byte no wait-state Instruction cache, high-speed MMU, and a full- 
featured hardware time of day clock/calendar with battery back- 
up. It also provides tor an optional 68881 floating point co- 
processor. 

• 1 Megabyte ot high speed static RAM. 

• Intelligent Serial and Parallel I/O Processor boards significantly 
reduce system overhead by handling routine I/O functions. This 
frees up the host CPU for running user programs. The result Is a 
speed up ot system performance and allows all terminals to run at 
up to 19. 2K baud. 

• The system hardware will support up to 39 terminals. 

• Powered by a constant voltage ferro-resonant power supply that In- 
sures proper system operation under adverse AC power input condi- 
tions. 

• OMA hard disk interface and DMA double density floppy disk con- 
troller are used tor data transfers at full bus speed. The DMA hard 
disk drive controller provides automatic 22-blt burst data error 
detection and 11 -bit burst error correction. 

• A selection of hard disk drives with capacities from 19 to 85 
Megabytes, removeable pack hard disk drives, streaming tape 
drives, and floppy disk drives Is available. 

IWII It 1 tf MWt IIU II 
«0»t»«WI»w**tNUS Gmrwianl 
Umf LEX it t BMtffliA of laconical Spam C<ranfTina. tnc 
CMI «» GIMIX «rt indvwtlt t* GIMII. IDC 



SOFTWARE FEATURES: 

The UnlFLEX VM Operating System is a demand-paged, virtual 
memory operating system written in 68020 Assembler code for com- 
pactness and efficiency. Any UnlFLEX system will run faster than a 
comparable system written in a higher level language. This Is Impor- 
tant in such areas as context switching, disk I/O, and system call 
handling. Other features include: 

• compact, efficient Kernel and modules allows handling more users 
more effectively than UNIX systems, using much less disk space. 

UNIX system V compatibility at the C source code level. 

C Compiler optimized in 68020 code (optional). 

Record locking for shared files. 

Users can share programs in memory. 

Modeled after UNIX systems, with similar commands. 

System accounting facilities. 

Sequential and random tile access. 

Maximum record size limited only by the disk size. 

Multiple Level Directories. 

Up to 4 Megabytes ot Virtual Memory per user. 

Optional Languages available are: C. BASIC. COBOL. FORTRAN. 
LISP, PROLOG. SCULPTOR, and ASSEMBLER. In development are 
ADA. PASCAL, and FORTH. 

Included with the UnlFLEX Operating System are a Utilities package, 
editor, relocating assembler, linking loader, and printer spooler. Op- 
llons inlcude a fast floating point package, library generator, and a 
sort-merge package. 

The GMX version ot the MOTOROLA 020 BUG is included with the 
system. 



GIMIX. Inc., a Chicago based microcomputer company established in 1975, has produced state of the art microcomputer systems based on Motorola 6800 and 
6809 microprocessors. GIMIX systems are in use in Industry,, Hospitals, Universities, Research Organiations, and by Software Developers. GIMIX was awarded 
the prestigious President's "E" Certificate for Exports in 1984. 



Gimix 



IDC. 1337 WEST 37th PLACE • CHICAGO, ILLINOIS 60609 • (312)927-5510 • TWX910-221-4055 




Now Offering: •FLEX'" 12 Versions) 
AND "STAR-DOS PLUS+ " 




For Ordering Call 

(615)842-4600 



FROM - DATA-COMP, C.P.I. 



A Family of 100% 68XX Support Facilities 

The Folks who FIRST Put FLEX'" on 

The CoCo 




' 


TSC Editor 

R«9 J5« 00 


"\ 
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NOW $35.00 





DOS PLUS + 

• Functions Same as FLEX 

• Reads - writes FLEX Disks 

• Run FLEX Programs 

• Just type: Run '•STAR-DOS'" 

• Over 300 utilities & programs 
to choose from. 



PLUS 
ALL VERSIONS OF FLEX & STAR-DOS' INCLUDE 

Read-Write-Dir RS Disk + External Terminal Program 




Run RS Basic from Both 
More Free Utlites 



+ Test Disk Program 
+ Disk Examine & Repair Program 
+ Memory Examine Program 
+ Many Many More!!! 



TSC Assembler 

NOW $35.00 



CoCo Disk Drive Sgslemsl 



2 THINLINZ DOUBLE SIDE0 DOUBLE DENSITY DISK DRIVES 
SYSTEM WITH P0MF.H SIJKP LV ,CAB INCT ,01 SIC UBIVE CABLE, JiM 
NEW DISK CONTROLLER JFO-CP WITH J-D0S.KS-D0S OFERATINC 
SVST8XS. $449.95 

• Specify whit CONTROLLER You wont Jut, or RADIO SHACK 



TH INLINE D0UBLK SIDED 
D0UILC DENSITY *U TRACKS 



Verbatim Diskettes 



Single Sided Double Density 
Double Sided Double Dcnatty 



Cuiili ntlel ■> 



Jt« jfd-cp with j-cos 

WITH J-DOS, RS-OOS 
RADIO SHACK I.I 

RADIO SHACK Disk CONTROLLER I.I 



Disk Drive Cables 



Cable for One Drive 
Cable for Two Driven 



$129.95 



$ 2*. 00 
$ 2*. 00 



$159.95 
$159.95 
$154.95 

$13*. M 



$ 19.95 
$ 14.95 



64K UPCKADE 

FOR C.B.E.P. AND OtCO II 
KAD10 SHACK BASIC 1.2 
RADIO SHACK DtSK BASIC 1.1 

DISK DRIVE CABINET PCJK A 
SINGLE DRIVE 

DISK DRIVE CABINET POK TWO 
TKINL1NE DRIVES 



raliTKis 

EPSON LX-BO 

EPSON nx-;o 

EPSON MX-100 
ACOUKMIU POt IPSO! 

8148 I*. SERIAL BOARD 

8149 32K KXPAND TO I28K 
EPSUN nX-KX-80 RIBBONS 
EPSON LX-BO RIBBONS 
TMCTOR UNITS FOK IX-80 
CABLES 4 OTHER INTtKFACKS 
CALL FOR PRICING 



$ 2*. 15 



$ 24. 95 
$ 24.95 



$ 49.95 
$ 49.95 



B2B9.95 

5115.15 
$495.95 



$ 89.95 
$149.95 
| 7.95 
$ 5.95 
$ 39.95 



DATA-COMP 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 




CO 




SHIPPING 

USA ADO 2* 

FOP.E16N ADO S* 

rilN. $2.50 


(615)842-4600 

For Ordarlnfj 

Telex 5106006630 
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S-50 bus/68XX 



Board and/or Computer 
Terminal ••CRTs-Printers 

Disk Drives-etc. 



REPAIRS 



DC 



NOM AVAILABLE TO ALL SS0/68XX USERS 

The Oata-Comp Division ot OPI Is proud to announce the availability 
ot thalr sarvlca departmen t tacllltlas to 'ALL' S50 Bus and 68XX 
u«ars. Including all brands, SWTPC - GIMIX - SSB - HELIX and 
others. Including tha slngla board computers. * Plaasa nota that 
klt-bullt components ara a spaclal casa, and alll bo handlad on an 
Individual basis. If accaptad. 

1. If you raqulra sarvlca, tha first thing you naad to do Is call 
tha number beloa and dascrlba your problem and confirm a 0ota-Onej> 
sarvlca I shipping niaberl This Is vary Important, Oata-Comp ■III 
not accapt or rapalr Itams not displaying this numbarl Also «• 
cannot advlsa or halp you troublashoot on tha talaphona, ae can 
give you a shipping n unbar, but NO advleal Sorry) 

2. All sarvlca shipments must Include both a minimum 140,00 
est Imate/repalr charge and pre-paid return shipping charges 
(should be same amount you pay to ship to Oata-Comp). 

3. If you desire a telephone estimate after your repair Item Is 
received. Include an additional tS.OO to cover long distance 
charges. Otherwise an estimate alll be mailed to you. If you 
requested an estimate. Estimates must be requested. Mailed 
estimates sloa doan the process considerably. Hoaever, If repairs 
are not desired, after the estimate Is given, the {40.00 shall 
constitute the estimate charge, and the Item(s) alll be returned 
unrepaired providing sufficient return shl p ping charges mart 
Included alth Item to be serviced. Please note that estimates ere 
given In dollar amounts only. 

4. Oata-Comp service Is the oldest and most experienced general 
S90/6BXX service department In the aorld. We have over 
1100,000.00 In parts In stock. We have the most complete set of 
service documents for the various S90/66XX systems of anyone - 
TCT. WE DO MOT HAVE EVERYTHING! But ae sure have more then anyone 
else. We repair about 901 of all Itams ae receive. Call for 
additional Information or shipping Instructions, 




Not This 




DATA-COMP 

5900 Cassandra Smith Rd. 
Hixson. TN 37343 



(615)842-4607 

Telex 5106006630 



